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This  Technical  Memorandum  (TM)  describes  the  newly  developed 
REMote  Terminal  Executive  (REMTEX)  postprocessor  software 
system.  User  interaction  and  input  requirements  are  described 
and  output  formats  are  presented.  Basic  program  and  file 
maintenance  instructions  are  included. 
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SECTION  1. 


INTRODUCTION 


1 . 1 General 

The  RE Mote  Terminal  Executive  (REMTEX)  software  package  is  a 
generalized,  dictionary-driven,  postprocessor  system.  Its 
purpose  is  to  retrieve,  reformat,  and  display  output  data 
produced  by  other  HIS  600/6000  programs.  The  output  formats 
available  through  REMTEX  are  point  graph,  histogram,  and 
tabular  on  the  online  printer  and  line  graph  and  histogram 
on  an  offline  CalComp  flat  bed  plotter.  REMTEX  is  coded  in 
Series  6000  FORTRAN  (FORTRAN  Y)  and  will  execute  at  any 
HIS  600/6000  computer  site.  To  utilize  the  complete  capa- 
bility of  REMTEX,  a user's  site  also  should  have  a CalComp 
flat  bed  plotter  and  one  or  more  interactive  remote  terminals. 
Also  , users  located  at  Worldwide  Military  Command  and  Control 
System  (WWMCCS)  sites  can  utilize  the  Worldwide  Data  Manage- 
ment System  (WWDMS)  to  produce  additional  tabular  output 
reports . 


1 . 2 References 

Information  on  the  programming  conventions  used  for  the  REMTEX 
program  may  be  found  in  the  following  Honeywell  Information 
Systems,  Inc.,  manuals: 

a.  Honeywell  Information  Systems,  Inc.,  Bulk  Media 
Conversion , Order  No.  DDll,  Rev.  0,  Wellesley  Hills, 
Mass.,  April  1974. 

b.  Honeywell  Information  Systems,  Inc.,  Control  Cards 
Reference  Manual,  Order  No.  DD31,  Rev.  0,  Wellesley 
Hills,  Mass.,  March  1974. 

c.  Honeywell  Information  Systems,  Inc.,  FORTRAN , Order 
No.  DD02,  Rev.  0,  Wellesley  Hills,  Mass.,  January 
1975. 

d.  Honeywell  Information  Systems,  Inc.,  GCOS  Time- 
sharing System  General  Information,  Order  No.  DD22  , 
Rev . 0^  WellesTey  Hills,  Mass . , April  1974. 

e.  Honeywell  Information  Systems,  Inc.  , GCOS  Time- 
sharing System  Programmer's  Reference  Manual,  Order 
No.  DD17 , Rev.  0,  Wellesley  ffills,  Mass.,  March  1974  . 
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f.  Honeywell  Information  Systems,  Inc.,  GCOS  Time- 
sharing System  Terminal/Batch  Interface  Facility, 
Order  No.  DD2l , Rev.  0,  Wellesley  Hills,  Mass., 

April  1974. 

g.  Honeywell  Information  Systems,  Inc.,  General  Compre- 
hensive Operating  Supervisor  (GCOS) , Order  No.  DD19, 
Rev.  0~,  Welles'ley  Hills,  Mass.,  April  1974. 

h.  Honeywell  Information  Systems,  Inc.,  General  Loader, 
Order  No.  DD10,  Rev.  0,  Wellesley  Hills,  Mass., 

March  1974. 

i.  Honeywell  Information  Systems,  Inc.,  General  Macro 
Assembler  Program  (GMAP) , Order  No.  DD08,  Rev.  0, 
Wellesley  Hills,  Mass . July  197  4 . 

j.  Honeywell  Information  Systems,  Inc.,  Utility , Order 
No.  DD12,  Rev.  0,  Wellesley  Hills,  Mass.,  April 
1974. 

The  following  documents  were  used  as  references  for  REMTEX : 

a.  California  Computer  Products,  Inc.,  Cal Comp  Basic 
Software  CAL  EDIT  User's  Guide,  No.  1058,  Anaheim, 
California,  May  1975. 

b.  California  Computer  Products,  Inc.,  CalComp  Graphics 
Functional  Software  USAS  FORTRAN/Business  User's 
Manual,  No.  1011,  Anaheim,  California,  Revised 
October  1969. 

c.  Command  and  Control  Technical  Center,  Institute  for 
Def cnse  Analysis  Ground-Air  Model  II  (IDAGAM  II), 
Computer  System  Manual  CMS  UM  201-75,  Washington, 
D.C.,  October  1976. 
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SECTION  2. 


DISCUSSION 


This  section  describes  the  functioning  of  REMTEX , the  user 
interaction  required  for  the  operation  of  REMTEX,  basic 
maintenance  information  for  the  REMTEX  programs  and  files, 
and  several  operational  techniques  to  utilize  system 
flexibility . 


2 . 1 System  Description 

This  subsection  presents  the  environment  and  the  system 
flow  of  REMTEX.  A graphic  representation  of  the  system  flow 
is  depicted  in  figure  1. 

2.1.1  REMTEX  Hardware.  The  REMTEX  system  requires  the  fol- 
lowing minimum  hardware  items  for  full  operation: 

a.  HIS  6 00/6000  series  computer 

b.  38K  available  core  memory 

c.  Two  9-track  tape  drives 

d.  Sufficient  disk  space  to  accommodate  all  files 
(space  required  will  vary  from  user  to  user) 

e.  One  online  printer 

f.  One  interactive  remote  terminal 

g.  One  CalComp  7000  flat  bed  plotter. 

2.1.2  REMTEX  Support  Software.  The  REMTEX  system  requires 
the  following  GCOS  software  support  packages  for  full  opera- 
tion plus  maintenance  capability: 

a.  Time-Sharing  Subsystem  (TSS) 

b.  Series  6000  FORTRAN  (FORTRAN  Y)  Compiler 

c.  General  Macro  Assembler  Program  (GMAP) 

d.  Remote  Card  Input  Subsystem  (CARDIN) 

e.  Bulk  Media  Conversion  (BMC) 
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Figure  1.  REMTEX  System  Flowchart 


f.  Utility 

g.  TEXT  EDITOR. 

2.1.3  REMTEX  System  Flow.  Before  initiating  REMTEX , the 
user  should  provide  computer  operations  with  the  reel  numbers 
of  the  magnetic  tapes  that  he  intends  to  use.  The  user  then 
should  obtain  an  interactive  terminal  and  log  on  to  the 
computer.  Refer  to  figure  1.  When  the  user  calls  the  REMTEX 
Editor  program,  the  Editor  will  ask  for  the  locations  of  the 
Commands  file,  the  Dictionary  file,  and  the  Summary  Data  file. 
After  these  files  are  successfully  attached  and  their  loca- 
tions are  stored  on  the  File  Pointers  file,  the  Editor  will 
initiate  a dialog  that  prompts  the  user  as  he  enters  the 
commands  describing  the  reports  he  wants  as  output.  When  the 
user  terminates  the  dialog,  the  Editor  will  detach  all  files 
and  cease  execution.  The  user  will  then  place  the  REMTEX 
Processor  program  in  execution  through  CARDIN.  When  the 
user  has  copied  his  job  number,  he  may  log  off  the  terminal. 
The  Processor  will  attach  the  File  Pointers  file  and  read 
the  locations  of  the  Commands  file,  the  Dictionary  file,  and 
the  Summary  Data  file.  These  files,  as  well  as  the  Plotter 
tape,  will  then  be  attached.  Based  on  the  reporting  require- 
ments in  the  Commands  file  and  the  legal  variable  definitions 
in  the  Dictionary  file,  the  Processor  will  examine  the  data 
from  the  Summary  Data  file  and  reformat  and  output  the 
retrieved  data.  The  possible  output  formats  are  point  graphs, 
histograms,  and  tables  on  the  online  printer  and  line  graphs 
and  histograms  on  the  CalComp  7000.  Table  1 defines  each 
output  portion  that  is  flagged  by  a circled  number  in  figures 
2 through  6.  Figures  2 through  6 depict  each  type  of  REMTEX 
output.  When  the  Processor  has  completed  execution,  the 
user  may  pick  up  his  online  output  as  part  of  his  execution 
listing.  At  this  time,  the  user  should  submit  a request  to 
have  the  plotter  tape  processed  on  the  CalComp  7000. 


2 . 2 System  Operation 

This  subsection  describes  the  REMTEX  operation  and  user 
interaction  in  detail. 

2.2.1  REMTEX  Editor  and  User  Interaction.  The  user  must 
provide  the  location  of  the  Summary  Data  file,  the  Commands 
file,  and  the  Dictionary  file.  The  user  also  must  specify 
the  processing  to  be  performed.  This  may  be  accomplished 
through  user  interaction  with  the  REMTEX  edit  program, 

RXEDIT.  Appendix  A contains  a source  code  listing  of  RXEDIT. 
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Table  1.  Description  of  User  Specified  Portions  of  RXPROC 
Output  as  Displayed  in  Figures  2 Through  6 

1.  Report  title,  lines  1,  2 and  3 

2.  X-axis  title 

3.  Y-axis  title 

4.  X-axis  scale  (upper) 

5.  Y-axis  scale  (lower) 

6.  Y-axis  scale  (upper) 

7.  Histogram  title 

8.  Data  values  on  histogram  bars 

9.  Point  graph  of  Y-axis  variable  #1  versus  X-axis 
variable 

10,  Point  graph  of  Y-axis  variable  #2  versus  X-axis 
variable 

11.  Histogram  of  Y-axis  variable  versus  X-axis  vari- 
able 
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Figure  2.  Sample  Point  Graph  From  the  Online  Printer 
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Figure  3.  Sample  Histogram  From  the  Online  Printer 


Qked  weapons  losses 


Figure  4.  Sample  Table  From  the  Online  Printer 


WEAPONS  TYPE 


Qred  weapons  lossi  s 

0 REPORT  DATE  19  JAN  77 


©DAY 


Figure  5.  Sample  Line  Graph  From  the  CalComp  Plotter 


WEAPONS  TYPE 


RXEDIT  contains  two  major  sections  of  inquiries.  The  first 
section  asks  for  the  catalog-file  strings  for  the  Dictionary 
file  and  for  the  Commands  file  (which  will  be  loaded  by  the 
second  part  of  RXEDIT)  and  for  either  the  tape  number  or 
catalog-file  string  for  the  Summary  Data  file.  This  infor- 
mation is  keyed  and  stored  on  file  code  30,  the  File 
Pointers  file.  The  catalog-file  string  for  file  code  30  must 
be  given  in  the  run  command  for  the  RXEDIT  program.  The 
second  section  of  RXEDIT  loads  the  Commands  file  with  the 
processing  instructions  entered  by  the  user.  The  user  may 
elect  to  load  only  the  File  Pointers  file  and  use  a previously 
created  Commands  file  or  he  may  load  both  files.  This  option 
is  exercised  by  appropriately  answering  the  question,  "Do  you 
want  to  load  the  Commands  file?".  (See  the  discussion  below.) 

Since  the  user  specifies  all  of  the  files  and  tapes  which  are 
used  in  REMTEX,  he  may  use  RXEDIT  to  build  several  Commands 
files  and  File  Pointers  files  and  save  these  files  for  use  as 
he  needs  them.  The  File  Pointers  file  is  used  by  RXPROC,  the 
REMTEX  processing  routine,  to  locate  the  Dictionary,  the  Sum- 
mary Data  and  the  Commands  files.  Before  RXPROC  is  executed, 
the  user  must  ensure  that  the  contents  of  the  JCL  file  spec- 
ify the  appropriate  file  code  30  and  plotter  tape.  (See 
subsection  2. 3. 3.1.) 

To  execute  RXEDIT,  the  user  must  select  a terminal  and  log  on 
to  the  central  computer.  Section  4 of  the  IDAGAM  II  Users 
Manual  (UM)  instructs  the  user  in  the  log  on  procedure  for 
each  of  the  four  types  of  remote  terminals  found  in  the  CCTC . 

Once  the  user  has  logged  on  successfully  to  the  SYSTEM  level, 
he  must  participate  in  a dialog  with  RXEDIT.  In  the  discus- 
sion below,  RXEDIT  prompting  statements  are  underlined.  An 
equal  sign  (=)  appearing  on  the  terminal  informs  the  user 
that  a response  is  required.  Possible  user  responses  are 
discussed  at  the  points  in  the  dialog  where  the  user  must 
provide  an  answer.  Circled  numbers,  e.g.Q),  refer  to  the 
illustration  in  figures  2 through  6.  Beginning  at  the  SYSTEM 
level,  the  dialog  proceeds  as  follows: 

SYSTEM? 

YFORT 


The  system  to  be  used  is  FORTRAN  Y. 
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OLD  OR  NEW 


NEW 

READY 

★ 

RUN  catalog-file  string  for  RXEDIT  H*  file  # catalog-file 
string  for  File  Pointers  file  "30" 


This  input  from  the  user  attaches  the  File  Pointers  file 
to  file  code  30  and  loads  and  executes  RXEDIT  from  the 
H*  FILE.  Example:  RUN  674 IDPO 0/CSC/RXEDITHS  # 

67  4 IDPO  0/CSC/RXFPT" 3 0" . 

NOTIFY  COMPUTER  OPERATIONS  TO  OBTAIN  ALL  NECESSARY  MAGNETIC 

TAPES  FROM  THE  TAPE  LIBRARY. 

No  response  is  required  from  the  user.  This  message  is 
a reminder  to  the  user  that  he  must  notify  computer  oper- 
ations in  advance  to  obtain  from  the  tape  library  any 
magnetic  tapes  required  by  RXPROC.  One  tape  is  required 
by  RXPROC  for  the  plotter  data.  If  the  input  Summary 
Data  file  is  on  tape,  that  tape  is  also  required  by 
RXPROC  for  execution. 

REMTEX  IS  EXECUTING  - PLEASE  RESPOND  WHEN  = APPEARS. 

ENTER  CATALOG-FILE  STRING  FOR  THE  DICTIONARY,  36  CHARACTERS 

MAXIMUM. 


Example:  674IDP00/CSC/DICT. 

ENTER  CATALOG-FILE  STRING  FOR  THE  COMMANDS  FILE,  36  CHARACTERS 
MAXIMUM. 


Example:  67  4 IDPO  0/CSC/RXCOMM . 

ENTER  INPUT  SOURCE  "T",  "TAPE" , "D",  OR  "DISK " . 


The  user  must  specify  the  medium  of  the  Summary  Data 
file.  If  the  user  cannot  be  sure  that  a tape  drive  will 
be  available,  his  summary  data  should  be  input  from  disk. 
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ENTER  TAPE  NUMBER  OF  INPUT  SOURCE 


5 INTEGER  DIGITS. 


This  prompting  statement  appears  only  if  the  input 
source  is  tape,  in  which  case  the  user  must  enter  a 
5-digit  reel  number.  Example:  99999. 

ENTER  CATALOG-FILE  STRING  OF  INPUT  SOURCE  - CAT-l/CAT-2/ . . . / 
FILE,  — 36  CHARACTERS  MAXIMUM. 


This  prompting  statement  appears  only  if  the  input 
source  is  disk,  in  which  case  the  user  must  enter  the 
appropriate  catalog-file  string.  Example:  674IDP00/ 

CSC/ SUMMDATA . 

The  user  responses  to  the  above  prompting  statements 
are  summarized  and  displayed  by  the  computer  at  this 
point : 


CATALOG-FILE 

STRING 

FOR 

THE 

DICTIONARY  = text 

CATALOG -FILE 

STRING 

FOR 

THE 

COMMANDS  FILE  = text 

INPUT  SOURCE 
TAPE  NUMBER  ' 

= text 
OF  INPUT 

SOURCE 

= text 

or 

CATALOG-FILE 

STRING 

FOR 

THE 

INPUT  SOURCE  = text. 

DO  YOU  WISH  TO  CHANGE  ANY  CATALOG  FILE  NAMES  - 'YES'  OR  'NO'. 


The  YES  response  causes  RXEDIT  to  return  to  the  prompt- 
ing statement  "ENTER  CATALOG-FILE  STRING  FOR  THE 
DICTIONARY" . The  NO  response  causes  RXEDIT  to  load  the 
File  Pointers  file  and  to  continue  with  the  following 
dialog : 

DO  YOU  WISH  TO  LOAD  THE  COMMANDS  FILE  - 'YES'  OR  'NO'. 
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The  NO  response  causes  the  program  to  detach  all  files 
and  to  terminate  immediately.  The  YES  response  causes 
the  program  to  continue  the  dialog,  enabling  the  Com- 
mands file  t > be  loaded. 

(?)  ENTER  LINE  1 OF  Kit  Rl  TITLE  - 36  CHARACTERS  MAXIMUM. 


Text,  self-explanatory. 

ENTER  LINE  2 OF  REPORT  TITLE  - 36  CHARACTERS  MAXIMUM. 


Text,  self-explanatory. 

ENTER  LINE  3 OF  REPORT  TITLE  - 36  CHARACTERS  MAXIMUM. 


Text,  self-explanatory. 

(?)  ENTER  X-AXIS  TITLE  - 36  CHARACTERS  MAXIMUM. 


Text,  self-explanatory. 

(?)  ENTER  Y-AXIS  TITLE  1,  36  CHARACTERS  MAXIMUM.  IF  YOU  HAVE 
ALREADY  TRANSMITTED  YOUR  LAST  Y-AXIS  TITLE,  ENTER  ONE  BLANK 
AND  EXECUTE  A CARRIAGE  RETURN. 


Y-axis  title  names  will  continue  to  be  requested  until 
the  user  either  enters  a blank  character  or  reaches  the 
limit  of  six.  At  least  one  nonblank  title  must  be 
entered . 

(?)  ENTER  X-AXIS  SCALE  (UPPER  END) -- 1 D 1 , 'DEFAULT',  OR  A POSITIVE 
INTEGER,  WHICH  IS  LESS  TUAN  OR  EQUAL  TO  100. 


The  user  either  inputs  a maximum  X range  value  or 
defaults  to  a value  to  be  determined  by  RXPROC.  If  the 
default  option  is  selected  for  the  X-axis  scale,  the 
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Y-axis  scales  (upper  and  lower)  will  also  be  determined 
by  RXPROC  and  the  following  Y-axis  scale  prompting  state- 
ments will  be  omitted. 

(?)  ENTER  Y-AXIS  SCALE  (LOWER  END) , AN  INTEGER  WHICH  IS  GREATER 
THAN  OR  EQUAL  TO  ZERO  AND  LESS  THAN  ONE  MILLION. 


Self-explanatory. 

Renter  y-axis  scale  (upper  end),  an  integer  greater  than  zero 

AND  LESS  THAN  ONE  MILLION. 


Self-explanatory . 

ENTER  X-AXIS  VARIABLE  NAME,  'DAY*  OR  'INDEX'. 


The  user  selects  one  of  the  legal  X-axis  variable  names. 
ENTER  Y-AXIS  VARIABLE  NAME  1. 


The  user  selects  one  of  the  legal  Y-axis  variable  names 
listed  in  the  Dictionary.  A Y-axis  variable  name  must 
be  compatible  with  the  previously  selected  X-axis  vari- 
able name. 

ENTER  QUALIFIER  VALUE  1.  IF  X-AXIS  VARIABLE  IS  'DAY',  ENTER 


' 0 1 

1 FOR 

TOTALS  OR  A POSITIVE 

INTEGER  TO 

SET  AN 

INDEX 

VALUE ; 

IF 

X-AXIS  VARIABLE  IS  ' 

INDEX1 

1 , ENTER  A 

POSITIVE 

INTEGER 

TO 

SPECIFY 

THE  DAY  NUMBER. 

THE 

VALUE  MUST 

BE  LESS 

THAN 

OR 

EQUAL 

TO  100. 


The  combination  of  X-axis  variable,  Y-axis  variable,  and 
qualifier  value  is  illegal  if  not  found  in  the  Dictionary, 
in  which  case  this  interactive  program  will  again  ask  for 
the  X-axis  variable  name.  The  Y-axis  variable  name  and 
the  qualifier  value  requests  will  be  repeated  until  the 
number  of  Y-axis  variable  names  equals  the  number  of 
Y-axis  titles. 
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ENTER  OUTPUT  FORMAT 
"BOTH",  "TABLE" . 


H",  "HISTOGRAM", 


GRAPH",  "B", 


II  Q II  II 


The  user  selects  either  a histogram,  a graph,  or  both 
or  he  selects  a table.  If  the  user  selects  BOTH,  only 
the  first  Y-axis  variable  will  appear  on  the  histogram. 
If  the  user  selects  TABLE,  a tabular  report  will  be  pro- 
duced on  the  online  printer;  no  other  report  will  be 
produced . 

ENTER  HISTOGRAM  Y-AXIS  TITLE  - 36  CHARACTERS  MAXIMUM.  BLANK 
DEFAULTS  TO  Y-AXIS  TITLE  1. 


This  prompting  statement  appears  only  if  the  output 
format  includes  histogram. 

DO  YOU  WISH  TO  DISPLAY  DATA  VALUES  ABOVE  EACH  HISTOGRAM  BAR — 
"YES"  OR  "NO". 


This  prompting  statement  appears  only  if  the  output 
format  includes  histogram. 

ENTER  OUTPUT  DESTINATION  - "C",  "CALCOMP",  "P",  "PRINTER", 
"B",  "BOTH" . ' 


The  user  must  select  either  the  CalComp  7000  flat  bed 
plotter,  the  H-6080  online  printer,  or  both  for  his 
reports.  This  prompting  statement  does  not  appear  if 
the  selected  output  format  was  TABLE. 

DISPLAY  OF  REPORT  DESIRED  - 'YES'  OR  'NO'. 


The  NO  response  will  suppress  the  following  summary  dis- 
play of  the  report  request: 

LINE  1 OF  REPORT  TITLE  = text 

LINE  2 OF  REPORT  TITLE  = text 
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LINE  3 OF  REPORT  TITLE 


text 


X-AXIS 

TITLE 

= text 

Y-AXIS 

TITLE 

n = text 

X-AXIS 

SCALE 

(UPPER  END)  = 

text 

Y-AXIS 

SCALE 

(LOWER  END)  = 

text 

Y-AXIS 

SCALE 

(UPPER  END)  = 

text 

X-AXIS 

VARIABLE  NAME  = text 

Y-AXIS 

VARIABLE  NAME  n AND 

ITS  QUALIFIER 

OUTPUT 

FORMAT 

= text 

HISTOGRAM  Y-AXIS  TITLE  = text 
DISPLAY  OF  HISTOGRAM  DATA  = text 
OUTPUT  DESTINATION  = text. 

DO  YOU  WISH  TO  KEEP  THIS  REPORT?  — 'YES'  OR  'NO'. 


The  NO  response  will  cause  RXEDIT  to  eliminate  this 
request  and  continue  with  the  dialog.  The  YES  response 
retains  the  request  and  loads  it  onto  the  Commands  file. 

ADDITIONAL  REPORTS  DESIRED?  - ’YES'  OR  'NO'. 


The  YES  response  causes  RXEDIT  to  initiate  a new  report 
request,  beginning  with  the  dialog  "ENTER  LINE  1 OF 
REPORT  TITLE".  The  NO  response  causes  RXEDIT  to  termi- 
nate after  the  following  dialog: 

REMTEX  EDIT  PROGRAM  HAS  COMPLETED. 

HAVE  A NICE  DAY. 
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During  the  execution  of  the  RXEDIT  program,  various  messages 
may  be  displayed  on  the  screen,  depending  on  the  entries  made 
by  the  user.  Some  of  these  messages  are  merely  informative, 
others  require  that  the  user  take  some  action.  Table  2 con- 
tains a list  of  messages  which  may  appear.  This  table  also 
gives  an  intepretation  of  each  message,  indicates  what  action 
the  user  should  take  and  refers  to  an  example  of  that  kind  of 
message  in  figure  7. 

2.2.2  REMTEX  Processor  Operation.  After  the  user  has  loaded 
one  or  more  File  Pointer  files  and  one  or  more  Commands  files, 
the  user  must  initiate  execution  of  the  REMTEX  Processor 
(RXPROC ) . The  user  may  accomplish  this  by  returning  to  the 
system  level  at  his  terminal  and  initiating  the  dialog 
described  below.  HIS  system  dialog  is  underlined. 

SYSTEM? 


■k 

CARD 

OLD  OR  NEW 

0 Catalog-file  string  for  the  RXPROC  JCL  file. 
Example:  0 674IDPOO/ CSC/ RX JCL . 


READY 


* 

Before  placing  the  RXPROC  JCL  into  execution,  the  user  should 
examine  it  and  alter  it  if  the  plotter  tape  reel  number  or 
the  File  Pointers  file  catalog-file  string  is  different  from 
the  one  he  is  using  for  this  REMTEX  execution.  The  JCL  may 
be  altered  interactively  on  the  terminal  after  listing.  The 
JCL  may  be  listed  by  the  following  dialog. 

LIST 

Text 

* 

If  the  alteration  of  the  RXPROC  JCL  is  permanent,  the  user 
should  capture  the  new  JCL  through  the  following  dialog: 
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Figure  7.  (Part  2 of  7) 


r ENTER  X-AXIS  SCALE (UPPER  END) — ' D DEFAULT ' , OR  A POSITIVE  INTEGER 
WHICH  IS  LESS  THAN  OR  EQUAL  TO  100. 
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Figure  7.  (Part 
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NOTIFY  COMPUTER  OPERATIONS  TO  OBTAIN  ALL  NECESSARY  MAGNETIC  TAPES  FROM 
THE  TAPE  LIBRARY. 

REMTEX  IS  EXECUTING  - PLEASE  RESPOND  WHEN  = APPEARS. 
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RESAVE  file  name  for  the  RXPROC  JCL  file. 

Example:  RESAVE  RXJCL 

* 

The  user  is  now  ready  to  execute  RXPROC  through  the  following 
dialog. 

RUN 

CARD  FORMAT,  DISPOSITION 
N 

SNUMB  ddddT 

The  user  must  write  down  the  SNUMB  in  order  to  claim  his  job 
at  the  control  desk  upon  completion  of  REMTEX  execution. 

When  the  user  claims  his  output,  he  also  may  submit  the 
plotter  tape  produced  by  RXPROC,  if  any,  to  the  CalComp  7000 
plotter  through  the  normal  job  submission  procedure. 

★ 

BYE 

LINE  TERMINATED 


The  user  has  completed  his  dialog  and  his  terminal  has  been 
disconnected  from  the  H-6080  computer. 


2 . 3 System  Maintenance 

This  subsection  describes  the  maintenance  procedures  for  the 
RXEDIT  and  RXPROC  programs  and  the  REMTEX  files. 

2.3.1  RXEDIT  Program  Maintenance.  The  REMTEX  Editor  (RXEDIT) 
is  coded  in  HIS  TSS  FORTRAN  using  structured  programming. 

Each  interactive  sequence  is  coded  according  to  the  following 
logic : 

a.  Display  prompting  statement. 

b.  Read  the  user  reply. 
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c.  Test  the  reply  for  validity;  if  invalid,  display 
an  error  message  and  display  the  prompting  state- 
ment again. 

d.  Display  the  next  pertinent  prompting  statement. 

The  format  statements  used  to  display  the  prompting  state- 
ments contain  English  language  phrases,  making  the  RXEDIT 
program  self-documenting  and,  consequently,  easy  to  follow. 

RXEDIT  contains  six  major  sections.  The  first  section  con- 
tains a set  of  inquiries  about  the  files  and  tapes  to  be 
used  in  RXEDIT  and  RXPROC.  The  keyed  replies  are  loaded  onto 
the  File  Pointers  file  for  input  to  RXPROC.  The  second 
section  reads  the  items  from  the  Dictionary  file  into  core 
memory.  The  third  section  is  a set  of  inquiries  regarding 
the  report  which  the  user  is  requesting.  If  the  user  so 
elects,  a display  of  this  report  is  given  by  the  fourth 
section  of  code.  If  the  user  wishes  to  implement  this  report, 
the  fifth  section  loads  the  keyed  requests  onto  the  Commands 
file.  Sections  3,  4,  and  5 are  executed  for  each  report 
requested  by  the  user.  Finally,  the  files  are  detached  and 
the  program  is  terminated  in  the  sixth  section. 

RXEDIT  calls  a time-sharing  FORTRAN  subroutine  called  ADJUST. 
This  routine  takes  a six-character  word  which  is  left  justi- 
fied and  right  justifies  its  contents.  This  is  accomplished 
by  shifting  characters  to  the  right,  one  character  for  each 
trailing  blank  in  the  original  word.  The  right  justified 
word  will  have  leading  blanks  if  any  shifting  was  necessary. 
Subroutine  ADJUST  is  on  the  same  file  as  RXEDIT. 

To  alter  the  RXEDIT  code,  the  maintenance  programmer  must 
log  on  to  a terminal  and  follow  the  steps  presented  below: 

SYSTEM? 

YFORT 

OLD  OR  NEW 


OLD 


catalog-file  string  for  RXEDIT  source  coae 
Example:  OLD  67 4 1 DP 0 0/CSC/ RXEDIT. 


LIST  mmmm-nnnn 


The  user  may  elect  to  display  portions  of  the  RXEDIT 
code  on  his  terminal.  In  this  case,  lines  mmmm  through 
nnnn  will  be  displayed.  (The  initial  alter  number 
precedes  the  hyphen  and  the  final  alter  number  follows 
it.  ) 

mmmm  code 


nnnn  code 


mmmm  code 

The  user  inputs  an  alter  number  followed  by  TSS  FORTRAN 
code.  If  the  alter  number  does  not  exist,  the  number 
and  its  line  of  code  are  entered  in  proper  numerical 
sequence  into  RXEDIT.  If  the  alter  number  does  exist, 
the  new  line  of  code  replaces  the  old  line  of  code. 

DELE  mmmm-nnnn 

To  delete  lines  of  code,  the  user  enters  the  word  DELE, 
followed  by  the  alter  numbers  of  those  lines  to  be 
deleted. 


RESA  file  name  for  RXEDIT  source  code 

The  updated  version  of  RXEDIT  will  now  replace  the 
old  version. 

Example:  RESA  RXEDIT. 

RXEDIT  SAVED 


BYE 
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This  maintenance  technique  is  applicable  to  all  files  that 
are  TSS  format. 

Whenever  the  RXEDIT  routine  is  altered,  it  should  be  recom- 
piled and  a new  II*  file  created.  This  is  accomplished  on 
the  terminal,  beginning  at  the  system  level,  through  the 
following  dialog: 

SYSTEM? 

YFORT 

OLD  OR  NEW 

OLD  catalog-file  string  for  the  revised  RXEDIT  source  code 

READY 


* 

RUN  = catalog-file  string  for  the  RXEDIT  H*  # catalog-file 
string  for  the  File  Pointers  file" 30". 

The  next  time  the  user  wishes  to  run  RXEDIT,  he  may  do  so 
from  the  newly  created  II*  file. 

2.3.2  RXPROC  Program  Maintenance.  The  RX  ROC  program  con- 
sists of  the  main  routine,  three  FORTRAN  subroutines,  PLOTTR , 
NEWAX  , and  ERRMSG,  and  one  GMAP  subroutine,  MORE.  Appendix  B 
contains  a complc  te  source  code  listing  of  RXPROC.  Each  of 
these  routines  resides  on  a separate  source  code  file  and 
object  code  file.  The  JCL  setup,  shown  in  table  3,  will 
allow  a maintenance  programmer  to  alter  the  RXPROC  routines. 

2. 3.2.1  RXPROC  Main  Routine  Logic.  The  source  code  of  the 
main  routine  of  RXPROC  is  divided  into  nine  sections , lettered 
A through  I,  by  comment  cards.  The  RXPROC  logic  will  be  dis- 
cussed by  section. 

2. 3.2. 1.1  Section  A.  This  section  performs  the  initial, 
nonrepetitive  housekeeping  functions.  The  plotter  tape  is 
opened  and  assigned  to  file  code  25  through  the  CalComp  Basic 
Software  Package  Subroutine  PLOTS.  The  File  Pointers  file 
(file  code  30)  is  opened  and  searched  sequentially.  When  the 
key  DIC  is  found,  the  Dictionary  file  is  attached  via  the 
catalog-file  string  and  assigned  to  file  code  10.  When  the 
key  COM  is  found,  the  Commands  file  is  attached  via  the 
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</></></>  -(/></>  <n  </></>  <s>  <j~>  </>  </>-(/>  <r>  -(/>-(/></>-(/>-</>-</> 


Table  3.  JCL  for  Altering  RXPROC  Routines  (Part  1 of  3) 


SNUMB  Installation-dependent 
IDENT  Installation-dependent 
USERID  Installation-dependent 
OPTION  FORTRAN 

FORTY  DECK , COMDK  1 

PRMFL  S* , R, S , catalog-file  string  for  RXPROC  source 
code  file 

PRMFL  C* ,W , S , catalog- fi le  string  for  RXPROC  object 
code  file 

FILE  K* ,X1S , 10L 

UPDATE  LIST 


alter  deck  for  RXPROC 


CONVERT  NSPIN 

FILE  IN , XlS 

PRMFL  OT ,W , S , catalog- file  string  for  RXPROC  source 
code  file 

FORTY  DECK, COMDK 

PRMFL  S* ,R,S, catalog-file  string  for  PLOTTR  source 

code  file 

PRMFL  C* , W, S , catalog- file  string  for  PLOTTR  object 

code  file 

FILE  K* , XlS , 10L 

UPDATE  LIST 


alter  deck  for  PLOTTR 


CONVERT  NSPIN 
FILE  IN, XlS 

PRMFL  OT , W , S , catalog- fi le  string  for  PLOTTR  source 
code  file 
$ FORTY  DECK, COMDK 

$ PRMFL  S* , R, S , catalog- fi le  string  for  NEWAX  source 

code  file 
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-o>  -c/>  -c/v  < />  </>  <r>  <s>  <st  <r>  <r>  <r> 


Table  3.  (Part  2 of  3) 


$ PRMFL 

$ FILE 

$ UPDATE 


alter  deck  for  NEWAX 


CONVERT  NSPIN 

FILE  IN , XlS 

PRMFL  OT , W , S , catalog- f i le  string  for  NEWAX  source 

code  file 

FORTY  DECK , COMDK 

PRMFL  S* , R , S , catalog- fi le  string  for  ERRMSG  source 
code  file 

PRMFL  C* , W , S , catalog-file  string  for  ERRMSG  object 
code  file 

FILE  K* , XlS , 1 OL 

UPDATE  LIST 


C* ,W , S , catalog-file  string  for  NEWAX  object 
code  file 
K* , XlS , 10L 
LIST 


alter  deck  for  ERRMSG 


CONVERT 
FILE 
PRMFL 

$ GMAP 

$ PRMFL 

$ PRMFL 

$ FILE 

$ UPDATE 


NSPIN 
IN, XlS 

OT , W , S , catalog 
code  file 
DECK , COMDK 
G* , R , S , catalog 
code  file 
C* , W, S , catalog 
code  file 
K* , XlS , 10L 
LIST 


file  string  for 

file  string  for 
file  string  for 


ERRMSG  source 

MORE  source 
MORE  object 


34 


-c/>  <r> 


Table  3. 


(Part  3 of  3) 


alter  deck  for  MORE 


CONVERT  NSPIN 
FILE  IN , XlS 

PRMFL  OT,W,S, catalog-file  string  for  MORE  source 
code  file 

$ END JOB 
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catalog-file  string  and  assigned  to  file  code  15.  If  the  key 
CFS  is  found,  the  Summary  Data  file  is  attached  via  the  catalog- 
file  string  and  assigned  to  file  code  20.  If  the  key  TPN  is 
found,  the  Summary  Data  file  is  attached  via  the  tape  reel 
number  and  Subroutine  MORE  and  is  assigned  to  file  code  20. 

If  no  tape  drive  is  available,  RXPROC  will  notify  the  operator 
and  RXPROC  will  be  placed  in  HOLD  status.  When  all  of  the 
records  in  the  File  Pointers  file  have  been  read  and  processed, 
RXPROC  reads  the  Dictionary  data.  The  Y- variable  information 
in  each  record  is  stored  in  the  following  arrays: 


DNAM (n , 1) 

- Y variable  name 

DNAM  (n, 2) 

- legal  X variable  name 

DQUAL 

- legal  Y variable  qualifier  (indexed  or 
nonindexed ) 

DFORM 

- index  of  the  format  statement  for  decoding 
the  record 

DTYP 

- data  type,  0 = integer,  1 = real 

DTAB 

- record  key  value 

DENT 

- Y variable  data  field  location  within  the 
record . 

When  the  Y variable  name  ZZZZZZ  is  read  in,  all  of  the  legal 
Y variables  have  been  read.  The  next  record  contains  the 
number  of  format  statements  on  the  Dictionary  file  and  the 
remaining  records  contain  the  format  statements,  which  are 
read  in  and  stored  in  array  FORM. 

2. 3. 2. 1.2  Section  B.  This  section  performs  recurring  house- 
keeping. All  arrays  and  variables  are  reinitialized  for  each 
report . 

2. 3. 2. 1.3  Section  C.  This  section  reads  the  commands  that 
constitute  a report  request.  Each  command  is  interpreted  and 
the  appropriate  action  is  performed.  When  the  End-of-Report 
command  (ERP)  is  read,  RXPROC  transfers  to  Section  D to 
process  the  report. 

2. 3. 2. 1.4  Section  D.  This  section  compares  the  variable 
names  requested  for  the  report  with  the  legal  variable  com- 
binations specified  in  the  Dictionary.  If  any  requested 
variable  is  illegal,  the  report  will  be  omitted. 
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2. 3. 2. 1.5  Section  E.  This  section  reads  the  Summary  Data 
file  and  compares  each  key  against  the  group  of  variables 
that  were  requested  for  this  report.  When  a match  is  found, 
the  data  is  retrieved  from  its  data  field  within  the  record 
and  stored  in  the  YDAT  data  array.  The  location  of  the  data 
field  and  the  form  of  the  data  (real  or  integer)  are  deter- 
mined by  Dictionary  information.  Also,  the  maximum  value 
for  X is  obtained  and  saved.  When  the  Summary  Data  file  has 
been  searched  completely,  RXPROC  transfers  to  Section  F. 

2. 3. 2. 1.6  Section  F.  This  section  sets  the  maximum  X and  Y 
scale  values  (user  default)  or,  alternatively,  tests  the  X 
and  Y values  against  the  scales  requested  by  the  user.  If 
this  section  sets  the  maximum  Y scale  value,  the  value  will 
be  one  digit  followed  by  one  or  more  zeros,  such  as  6000. 

Also,  the  Summary  Data  file  is  rewound  to  position  it  for 
the  next  report,  if  any. 

2. 3. 2. 1.7  Section  G.  This  section  converts  the  report 
values  in  array  YDAT  to  printer  positions  and  stores  them  in 
array  PTDATA . 

2. 3. 2.1. 8 Section  H.  This  section  sets  up  those  reports  to 
be  plotted,  if  any,  and  calls  Subroutine  PLOTTR  to  place  the 
report  onto  the  plotter  tape. 

2. 3. 2. 1.9  Section  I.  This  section  sets  up  and  outputs  print 
page  images.  First  the  Y scale  increments  are  set.  If  the 
report  format  is  a histogram,  a Y-axis  label  is  set  from  the 
user  request.  Then  each  X scale  value  is  set,  the  corre- 
sponding bar  is  constructed  from  array  PTDATA  and,  optionally, 
the  Y data  value  is  placed  on  top  of  the  bar.  If  over  16  X 
values  are  required,  one  printer  page  of  the  histogram  will 

be  output  and  a new  print  page  will  be  initiated  for  the 
remaining  bars. 

If  the  report  format  is  a point  graph,  the  Y-axis  labels  will 
be  set  from  the  user  request.  Next,  the  X scale  increments 
will  be  set.  Finally,  the  data  points  will  be  extracted  from 
array  PTDATA  and  placed  into  the  appropriate  positions  within 
the  print  page  image,  and  the  point  graph  will  be  written  to 
the  printer. 

If  the  report  format  is  a table,  no  histogram  or  point  graph 
will  be  output.  First,  the  report  title,  page  number,  and 
column  headers  are  set  up.  Next,  the  data  lines  are  set  up. 
The  first  column  contains  the  X data  values  in  ascending 
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increments.  The  remaining  columns  contain  as  many  correspond- 
ing Y values  as  the  user  has  requested.  If  the  data  values 
exceed  the  capacity  of  the  printer  page,  the  page  will  be 
output  and  the  title  and  header  information  will  be  regen- 
erated. When  all  requested  report  formats  have  been  output, 
RXPROC  will  return  to  Section  Li  to  begin  the  next  report. 

2. 3. 2. 2 E’LOTTR  Logic.  Subroutine  PLOTTR  (NUM)  is  called  by 
RXPROC  for  one  of  three  purposes:  (1)  to  write  commands  on 

the  plotter  tape  for  drawing  a line  graph,  (2)  to  write 
commands  on  the  plotter  tape  for  drawing  a histogram,  or 
(3)  to  close  out  the  plotter  tape.  The  input  argument  NUM 
is  used  with  (1)  and  (2)  to  indicate  the  index  of  the  plot 
whose  commands  are  being  written  to  tape.  This  value  is  used 
to  position  the  pen  on  the  CalComp  plotter.  When  PLOTTR  is 
called  to  close  out  the  plotter  tape,  NUM  is  set  to  zero. 

PLOTTR  uses  two  routines  which  are  part  of  the  CalComp  Basic 
Software  Package,  SYMBOL  and  LINE.  The  SYMBOL  routine  pro- 
duces annotation,  and  LINE  produces  a line  plot  of  pairs  of 
data  points.  PLOTTR  also  uses  the  routine  BAR,  which  draws 
bars  with  or  without  hatching.  BAR  is  part  of  the  CalComp 
Graphic  Functional  Software  Package.  The  CalComp  Basic 
Software  Package  also  contains  AXIS  which  plots  an  axis  and 
writes  the  scale  values  in  a real  format  with  two  decimal 
places.  However,  AXIS  does  not  meet  the  needs  of  this  pro- 
gram, so  NEWAX  was  written  to  plot  an  axis  with  scale  values 
in  integer  format. 

The  first  major  section  of  PLOTTR  sets  up  and  writes  the  line 
graph  commands  to  the  plotter  tape.  Using  the  scaling  range 
determined  in  RXPROC,  Subroutine  NEWAX  is  called  to  draw  the 
X and  Y axes,  with  their  associated  scale  values  in  integer 
format.  Through  calls  to  Subroutine  SYMBOL,  each  axis  label 
and  the  report  titles  are  printed.  The  Y axis  may  have  up  to 
six  titles,  one  for  each  line  graph  to  be  drawn  on  the  same 
pair  of  axes.  For  each  line  graph,  the  data  points  are 
loaded  into  the  arrays  XPLT  and  YPLT  and  Subroutine  LINE  is 
called  to  draw  the  line  graph  connecting  the  data  points. 
Finally  the  plotter  pen  is  repositioned  for  the  next  plot  and 
a new  origin  is  established. 

The  second  section  of  PLOTTR  sets  up  and  writes  the  histogram 
commands  to  the  plotter  tape.  The  Y coordinate  data  values 
are  loaded  into  the  Y array.  As  in  the  first  section,  NEWAX 
and  SYMBOL  are  called  to  plot  the  axes  and  label  the  plot. 

The  width  of  the  bars  is  determined  from  the  length  of  the 
X-axis  and  the  number  of  data  points.  Then,  for  each  X 
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value,  the  height  of  the  bar  is  determined  and  Subroutine 
BAR  is  called  to  draw  the  bar. 


The  third  section  calls  Subroutine  PLOT  to  close  out  the 
plotter  tape.  PLOT  is  also  part  of  the  CalComp  Basic  Soft- 
ware Package. 

2. 3.2.3  NEWAX  Logic.  Subroutine  NEWAX  (XPAGE , YPAGE , AXLEN, 
ANGLE,  FIRSTV,  DELTAV)  plots  an  axis  with  a tick  mark  every 
inch  and  writes  the  scale  values  in  integer  format.  The 
arguments  of  NEWAX  are  as  follows: 


XPAGE,  YPAGE  are  the  coordinates,  in  inches,  of  the 
axis  line's  starting  point. 

AXLEN  is  the  length  of  the  axis  line,  in  whole 

inches . 

ANGLE  is  the  angle,  in  degrees  (either  0.  or 

90.)  at  which  the  axis  is  drawn.  The 
value  is  0°  for  the  X axis  and  90°  for  the 
Y axis. 


FIRSTV  is  the  starting  value,  in  real  whole 

numbers,  which  appears  at  the  first  tick 
mark  on  the  axis.  This  number  and  each 
scale  value  along  the  axis  is  drawn  in 
integer  format.  Since  the  digit  size  is 
.1  inches  (10  characters  per  inch)  and 
since  a scale  value  appears  every  inch, 
the  scale  values  must  be  no  more  than  8 
digits  plus  a sign. 

DELTAV  represents  the  number  of  data  units  per 

inch  of  the  axis.  This  value,  which  must 
be  a real  whole  number,  is  added  to  FIRSTV 
for  each  succeeding  1-inch  division  along 
the  scale. 


2. 3.2.4  ERRMSG  Logic.  Subroutine  ERRMSG  outputs  error 
messages  for  RXPROC  and  performs  relevant  housekeeping.  The 
error  messages  and  their  meanings  are  presented  in  table  4. 
Depending  on  the  nature  of  the  error  that  was  encountered, 
ERRMSG  will  (1)  return  control  to  RXPROC  for  continued  proc- 
essing, (2)  position  the  Commands  file  to  the  next  report 
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Table  4.  (Part 


request  and  return  to  RXPROC  for  processinq  of  the  next 
report  request,  or  (3)  return  to  RXPROC  for  immediate  termi- 
nation . 

2.  3. 2. 5 MORE  Logic.  Subroutine  MORE  is  a GMAP  routine  that 
uses  the  MME  GEMORE  instruction  to  attach  a magnetic  tape. 
MORE  is  called  once  by  RXPROC  if  the  Summary  Data  file  is  on 
tape.  The  first  argument  points  to  a descriptive  array,  the 
second  argument  gives  the  number  of  entries  in  the  array 
(always  1 for  RXPROC) , and  the  third  argument  is  a status 
word.  An  entry  in  the  descriptive  array  (ITAPE  for  RXPROC) 
consists  of  a word  pair.  The  second  word  contains  the  reel 
number  in  five  characters,  left  justified.  The  reel  number 
is  obtained  from  the  File  Pointers  file.  The  first  word  is 
BCD  and  contains  media  type  (3  = 9-track  magnetic  tape),  left 
justified,  and  the  file  code  (20  for  RXPROC) , right  justified. 
Element  ITAPE (1)  is  always  preset  to  300020  in  RXPROC. 

2.3.3  REMTEX  File  Maintenance.  The  REMTEX  file  formats 
consist  of  TSS  files  and  BCD  files. 


2. 3. 3.1  TSS  Files.  In  addition  to  the  RXEDIT 
file,  which  was  discussed  in  subsection  2.3.1, 
exists  in  TSS  format  that  allows  a user  to 
from  his  remote  terminal.  Table  5 lists 
The  contents  of  a TSS  JCL  file  can  be  altered 
through  the  same  technique  that  is  employed 
source  code  file  (see  subsection  2.3.1). 


2. 3. 3.2  BCD  Files. 

File  Code 

10 

15 

20 

25 

30 


REMTEX  employs  the 

File  Name 

Dictionary 
Commands 
Summary  Data 
Plotter  Tape 
File  Pointers 


source  code 
a JCL  file 
initiate  a run 
typical  REMTEX  JCL. 
and  saved 
for  the  RXEDIT 


following  BCD  files: 

Loaded  By 

User 

RXEDIT 

User's  program 

RXPROC 

RXEDIT 


The  Plotter  Tape  is  an  intermediate  file  produced  on  the 
H-6000  and  used  as  input  to  the  CalComp  7000.  Since  it  is 
a work  file,  no  further  discussion  of  it  will  be  presented. 
All  of  the  other  BCD  files  may  be  generated  by  the  following 
code : 
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Table  5.  Example  of  a JCL  File  for  Executing 
RXPROC  From  the  Terminal 


10$:IDENT:4513,RXPR0, 315, JOHN  R01EY,674,10 
20$; OPTION:  EORTR  AN 
30$: L0WL0  AD 
40$: USE : . GTt I T 

50$:SELECT:674IDP00/CSC/RXPROCOB 

60S; SELEC  T : 6 7 4 I DP00/ C SC  /ERRMSGOB 

70$: SELEC  T : 6 7 4 I DP00/C  SC/PLOTTROb 

80$: SELEC  T : 6 74  I DP00/C  SC/NEWAXOb 

90$:SELECT;674IDPOO/CSC/MOREOB 

100$:LIBRARY;PL 

1 10$:EXECUTE :DUMP 

1 20$ : L I M I TS:25,38K,-4K,10K 

l30$:PRMFL:PL,R,R,LIBRARY/PL0TLIdN 

140$:PRMFL:30,R,S,674IDpOO/CSC/RXFPT 

150$:TAPE:25,X3D,, 99999, /PLOTTER-TAPE,, DENS 

160$;FFILE:25,F IXLNG/S0,BUFSIZ/S1 

1 70$ : END J Od 
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$ SNUMB  installation-dependent 

$ IDENT  installation-dependent 

$ USERID  installation-dependent 

$ CONVERT  NSPIN 

$ DATA  IN,, COPY 


punched  card  deck  containing  data  to  be  loaded 


$ ENDCOPY 

$ PRMFL  OT,W, S , catalog-file  string  for  file  to  be  loaded 

$ ENDJOB 

Normally,  only  the  Dictionary  file  will  be  loaded  as  described 
above.  However,  in  the  following  discussion,  the  data  fields 
will  be  specified  for  all  of  the  BCD  files,  enabling  a user 
to  set  up  a punched  card  deck  representing  each  file. 

2. 3. 3. 2.1  Dictionary  File  and  Summary  Data  File.  Since  these 
two  files  are  interrelated,  they  will  be  discussed  together. 

The  REMTEX  package  is  independent  of  the  type  of  summary  data 
used  as  input.  However,  this  data  must  be  in  the  appropriate 
format  and  a Dictionary  must  be  developed  to  guide  REMTEX  in 
reading  the  data.  Table  6 partially  lists  the  contents  of  a 
Summary  Data  file. 

The  data  must  meet  the  following  requirements: 

a.  Groups  of  data  are  divided  into  sections  by  a 
leading  card  with  DAY  in  the  columns  1 through 
3,  blank  in  column  4,  day  index  in  columns  5 
and  6,  and  a 2-digit  program  code  in  columns 

7 and  8.  The  day  index  in  12  format  indicates 
the  day  of  battle  with  which  the  following 
data  are  associated.  The  program  code  in  12 
format  is  any  value  the  user  wishes  to  specify 
to  identify  his  program.  (See  (7)  of  table  6.) 

b.  The  data  cards  which  follow  the  DAY  card  are 
formatted  so  that  columns  1 through  4 contain 
a key,  columns  5 and  6 contain  an  index  value, 
and  columns  7 through  132  contain  the  actual 
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Table  6.  Format  for  the  Summary  Data  File 


© DAY  1 

1 

© 1101  1 

0. 

315.41 

309.22 

0. 

1101  2 

0. 

18.13 

17.77 

0. 

1101  3 

0. 

9.06 

8.89 

0. 

1101  4 

0. 

82.96 

93.33 

0. 

1101  5 

270.56 

0. 

0. 

0. 

1101  6 

0. 

155.97 

175.47 

132.35 

1101  7 

0. 

5.06 

5.69 

3.91 

1101  8 

0. 

10.33 

11 . 62 

8.25 

1101  9 

0. 

57.12 

64.26 

0. 

110110 

811.68 

0. 

0. 

0. 

110111 

0. 

24.64 

27 . 72 

0. 

110200 

1082.24 

678.68 

713.97 

144.52 

1103  1 

0. 

3.99 

2.99 

0. 

1103  2 

0. 

0.25 

0.18 

0. 

1103  3 

0. 

0.09 

0.07 

0. 

1103  4 

0. 

0.28 

0.21 

0. 

1103  5 

7.43 

0. 

0. 

0. 

1103  6 

0. 

6.51 

4.88 

4 . 07 

1103  7 

0. 

0.22 

0.17 

0.13 

1103  8 

0. 

0.43 

0.32 

0.26 

1103  9 

0. 

1.35 

1.01 

0. 

110310 

4.63 

0. 

0. 

0. 

110311 

0. 

1 .06 

0. 79 

0. 

110400 

12.06 

14.17 

10.63 

4.46 

DAY  2 

1 

1101  1 

0. 

718.55 

754.96 

0. 

1101  2 

0. 

43.06 

45.  35 

0. 

1101  3 

0. 

21.53 

22.67 

0. 

1101  4 

0. 

189.58 

228. 61 

0. 

1101  5 

507.93 

0. 

0. 

0. 

1101  6 

0. 

355.13 

428.16 

745.27 

1101  7 

0. 

11.  87 

14.30 

24 . 95 

1101  8 

0. 

24.63 

29.79 

50.95 

1101  9 

0. 

130.54 

157.42 

0. 

110110 

1590.17 

0. 

0. 

0. 
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data  to  be  processed.  (See  of  table  6.) 

No  two  lines  of  data  may  be  identical  in 
columns  1 through  6 within  the  same  day. 

Table  7 shows  both  a sample  Summary  table,  which  is  produced 
by  IDAGAM  II  for  each  day  of  battle,  and  the  format  of  this 
data  on  the  Summary  Data  file.  In  creating  the  Summary  Data 
file  by  IDAGAM  II,  the  first  two  digits  of  the  key  were  used 
to  denote  the  Summary  table  number  from  which  the  data  was 
taken,  in  this  case  number  11.  The  table  was  then  divided 
into  four  groups  as  indicated  in  table  7.  The  second  two 
digits  of  the  key  were  used  to  denote  the  group  within  the 
table  from  which  the  data  were  taken.  For  the  key  1101,  the 
index  values  of  1 through  11  in  columns  5 and  6 denote  the 
various  missions.  An  index  value  of  0 is  used  for  the  key 
1102  to  denote  that  this  data  record  is  a set  of  totals;  no 
other  data  records  within  this  day  will  have  the  key  1102. 

The  data  which  follow  the  index  may  be  of  any  format  but  the^ 
must  be  contained  in  columns  7 through  132.  Table  8 lists 
the  data  for  the  first  day  of  battle  as  contained  on  a Summary 
Data  file  produced  by  IDAGAM  II. 

The  Summary  Data  file  format  has  been  set  up  in  this  manner 
to  allow  the  user  flexibility  in  his  choice  of  variables  to 
be  plotted.  The  user  can  elect  to  plot  the  days  of  battle 
versus  any  piece  of  data  on  the  file.  For  example,  he  might 
plot  day  versus  the  number  of  CAS  missions  flown  by  aircraft 
type  F-104.  He  might  also  choose  to  plot,  for  a specified 
day  of  battle,  the  11  types  of  missions  versus  the  number  of 
aircraft  of  type  F-104  which  flew  that  mission.  Both  of 
these  selections  are  possible  when  the  data  file  is  set  up  as 
illustrated.  The  user  is  also  allowed  to  plot  up  to  six 
point  and  line  graphs  on  the  same  set  of  axes  so  he  can 
observe  the  relationship  between  the  various  types  of  air- 
crafts. For  example,  the  user  may  plot  mission  versus  air- 
craft types  1 through  6 on  the  same  plot. 

The  REMTEX  program,  however,  does  restrict  the  user  in  that 
he  must  select  either  day  or  an  index  from  columns  5 and  6 
as  his  X-axis  variable.  The  index  for  Summary  table  11 
denotes  mission  type,  but  for  another  table  it  might  denote 
region,  sector,  weapon  type,  or  any  other  value  selected  by 
the  user . 

For  REMTEX  to  extract  a data  item  from  a record,  information 
must  be  provided  about  the  format  to  be  used  to  decode  that 
record,  which  data  field  contains  the  item,  and  whether  the 
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Table  7.  Comparison  of  an  IDAGAM  II  Summary 
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total 


Table  8.  Sample  Summary  Data  File  Produce 
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Table  3.  (Part  3 of  7) 
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item  is  a real  or  integer  value.  This  information  is  sup- 
plied through  the  Dictionary  file.  A Dictionary  file  must 
be  created  for  every  uniquely  formatted  Summary  Data  file. 

The  Dictionary  file  is  composed  of  two  major  parts.  The 
first  is  a table  which  lists  all  legal  variables  that  may  be 
requested  for  reports  from  the  Summary  Data  file  and  the 
location  of  the  corresponding  data  on  the  file.  This  table 
will  be  referred  to  as  the  Dictionary  items.  The  second 
part  is  a list  of  up  to  20  formats  which  will  be  used  to 
decode  the  data  records.  Table  9 is  a listing  of  the 
Dictionary  file  created  for  the  Summary  Data  file  in  table  8. 

Table  10  describes  the  contents  and  format  of  the  Dictionary 
items.  The  Y-axis  variable  name  is  used  to  designate  a 
variable  whose  value  is  given  in  a record.  For  example, 

BAC1S,  Blue  aircraft  type  number  1 sorties,  might  be  used 
to  denote  the  sorties  flown  by  aircraft  type  F-104  in  table 
7.  The  X-axis  variable  name  must  be  DAY  or  INDEX.  The 
qualifier  is  a value  to  designate  how  the  X-axis  variable 
may  be  used.  If  the  X-axis  variable  name  is  DAY,  then  the 
qualifier  is  set  to  0 if  no  index  value  can  be  specified  and 
to  1 if  an  index  value  can  be  specified.  If  the  X-axis 
variable  name  is  INDEX,  then  the  qualifier  must  be  1,  indi- 
cating that  a specific  day  must  be  selected  by  the  REMTEX 
user . 

For  example,  in  table  7 the  total  number  of  sorties  over  all 
missions  is  contained  in  the  data  record  whose  key  is  1102 
and  whose  index  value  is  0.  Therefore,  the  Dictionary  must 
contain  the  combination  of  BAClS,  DAY,  and  0 for  the  Y-axis 
variable  name,  X-axis  variable  name,  and  qualifier,  respec- 
tively, to  provide  the  capability  for  the  REMTEX  user  to 
receive  a plot  of  day  versus  the  total  number  of  sorties  flown 
by  aircraft  type  F-104  over  all  mission  types.  The  Dictionary 
must  also  contain  the  combination  of  BAClS,  DAY,  and  1 to  pro- 
vide the  selection  of  plot  of  day  versus  the  number  of  sorties 
flown  by  aircraft  type  F-104  for  any  specified  mission.  The 
REMTEX  user  will  specify  an  index  value,  for  example,  mission 
number,  to  be  used  for  the  plot  but  the  Dictionary  need  only 
contain  a 1 to  indicate  that  an  index  may  be  specified.  The 
Dictionary  may  also  contain  the  combination  of  BAClS,  INDEX, 
and  1 to  allow  for  the  plotting  of  mission  type  versus  the 
number  of  sorties  flown  by  aircraft  type  F-104  for  any  speci- 
fied day.  Again,  even  though  the  REMTEX  user  will  specify  a 
day  index  to  be  used,  the  Dictionary  need  only  contain  a 1 to 
indicate  that  day  may  be  specified. 
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Sample  Dictionary  File  (Fart  1 of  7) 


BWS1 

DAY 

0 

4 

1 

0504 

1 

BUS? 

DAY 

0 

4 

1 

0 5 0 4 

BUS  5 

DAY 

0 

4 

1 

0504 

5 

6 W S 4 

DAY 

0 

4 

1 

0504 

4 

b u S S 

DAY 

0 

4 

1 

0 504 

S 

fcW  S6 

DAY 

0 

4 

1 

0304 

6 

fcWS? 

0 A Y 

0 

4 

1 

0304 

? 

Bwsa 

DAY 

0 

4 

1 

0304 

8 

ews  v 

DAY 

0 

4 

1 

0 3 04 

y 

BWS  10 

DAY 

0 

4 

1 

0304 

1 0 

BUS  1 1 

DAY 

0 

4 

1 

0304 

1 1 

ewsi2 

DAY 

0 

4 

1 

0304 

1 2 

BWS  1 

DAY 

1 

1 

0 

050? 

1 

BUS? 

DAY 

1 

1 

0 

0502 

2 

BWS  3 

DAY 

1 

1 

0 

0 30? 

3 

BUS4 

DAY 

1 

1 

0 

0 3 0? 

4 

BUSS 

DAY 

1 

1 

0 

0502 

S 

HW  S6 

DAY 

1 

1 

0 

0 30? 

6 

BWS  / 

DAY 

1 

1 

0 

0 3 02 

7 

BW  S8 

DAY 

1 

1 

0 

0302 

a 

BWS9 

DAY 

1 

1 

0 

0 30  2 

V 

BWS  10 

DAY 

1 

1 

0 

0 502 

1 0 

BUS  11 

0 A Y 

1 

1 

0 

0 30  2 

1 1 

BW  S 1 2 

DAY 

1 

1 

n 

0302 

1 2 

bus  1 

1 NOE  X 

1 

1 

0 

0 30  2 

1 

B w S 2 

INDEX 

1 

1 

0 

0 3 0 2 

2 

ews  5 

INDEX 

1 

1 

0 

0302 

5 

hws; 

INDEX 

1 

1 

i) 

0 5 02 

4 

BW  S S 

i n r>»  * 

1 

1 

0 

0 30? 

S 

buSfc 

INDEX 

1 

1 

n 

0 302 

6 

BWS? 

INDEX 

1 

1 

0 

0 502 

? 

eu  s« 

INDEX 

1 

1 

(1 

0 30  2 

a 

b W S ^ 

INDEX 

1 

1 

0 

0 50? 

V 

BWS  TO 

INDEX 

1 

1 

,0 

0 3 02 

1 0 

BWS  11 

INDEX 

1 

1 

0 

0 30  2 

i i 

BUS  1 2 

INDEX 

1 

1 

0 

0302 

1 2 

BPS  1 

D A Y 

0 

4 

1 

it  504 

1 3 

BPS? 

DAY 

0 

4 

1 

0 3 04 

1 4 

BPS  5 

D A Y 

0 

4 

1 

0 50  4 

1 S 

BP  S 1 

D A Y 

1 

1 

0 

0 30  2 

1 3 

bPS? 

DAY 

1 

1 

c 

(15(i? 

1 4 

HP  S 3 

DAY 

1 

1 

n 

0 30? 

1 S 

eps  i 

INDEX 

1 

1 

0 

0 30  2 

1 5 

BPS? 

INDEX 

1 

1 

n 

.I3ii? 

1 4 

BPS  3 

INDEX 

1 

1 

0 

0 30  2 

1 S 

RWS  1 

day 

() 

4 

1 

04  04 

1 

RW  S ? 

DAY 

0 

4 

1 

0404 

2 

RWS  5 

0 A Y 

0 

4 

1 

0404 

3 

RW  S 4 

DAY 

n 

4 

1 

04  04 

4 

RWS  S 

DAY 

0 

4 

1 

0404 

S 

fi  W S 6 

day 

0 

4 

1 

04  0 4 

6 
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Table  9.  (Part  2 of  7) 


NWS  7 

DAY 

1) 

A 

1 

04  04 

7 

NWS8 

0 A Y 

0 

A 

1 

04  04 

8 

RWS9 

DAY 

0 

A 

1 

0404 

V 

hus  in 

DAY 

0 

A 

1 

04  0 4 

i n 

kws  n 

DAY 

n 

A 

1 

0404 

1 1 

nws  12 

DAY 

0 

A 

1 

04  04 

1 2 

NWS  1 

0 A Y 

i 

1 

fi 

040? 

1 

N W S 2 

D A Y 

i 

1 

0 

040? 

2 

NWS  3 

DAY 

i 

1 

0 

040? 

5 

N W S A 

DAY 

i 

1 

0 

04  0<! 

A 

NWS  5 

DAY 

i 

t 

0 

04  0 c* 

b 

NW  S6 

DAY 

i 

1 

0 

04  0? 

e> 

HUS  / 

DAY 

i 

1 

0 

04  0? 

7 

N W S 8 

DAY 

i 

1 

n 

0 4 0? 

H 

NW  S9 

DAY 

i 

1 

0 

040? 

V 

RWS  11) 

DAY 

i 

1 

n 

040? 

1 0 

NWS11 

DAY 

i 

1 

0 

040? 

1 1 

NWS  1 2 

DAY 

i 

1 

0 

040? 

1 2 

NWS  1 

INDEX 

i 

1 

0 

040? 

1 

NWS? 

I NOE  X 

i 

1 

0 

040? 

2 

NW  S 5 

INDEX 

i 

1 

0 

040? 

3 

H WSA 

INDEX 

i 

1 

0 

04  0? 

A 

NWSS 

INDEX 

i 

1 

0 

040? 

s 

RWS6 

INDEX 

i 

1 

0 

04  0? 

6 

NWS  7 

INDEX 

i 

1 

l 

040? 

7 

NWS  8 

INDEX 

i 

1 

0 

040? 

8 

N W S 9 

INDEX 

i 

1 

0 

040? 

V 

NWS  10 

INDEX 

i 

1 

0 

040? 

1 0 

NWS  1 1 

l NOE  X 

i 

1 

1) 

040? 

1 1 

NWS1  2 

INDEX 

i 

1 

0 

040? 

1 2 

RPS  1 

day 

0 

A 

1 

0404 

1 3 

RPS2 

DAY 

0 

A 

1 

04  04 

1 A 

NPS3 

DAY 

0 

A 

1 

04  0 4 

1 s 

RPS  1 

DAY 

1 

1 

0 

04  0? 

1 3 

RPS? 

DAY 

1 

1 

0 

040? 

1 A 

RPS  3 

DAY 

1 

t 

G 

040? 

1 s 

RPS  1 

INDEX 

1 

1 

0 

04  0? 

1 .3 

RPS? 

index 

1 

1 

0 

04  0? 

1 A 

RPS  3 

INDEX 

1 

1 

0 

040? 

1 s 

B A f 1 S 

day 

0 

2 

1 

11  0? 

1 

b A C 2 s 

DAY 

1) 

? 

1 

110? 

2 

BAC  5S 

DAY 

0 

2 

1 

1 1 0? 

3 

BACAS 

DAY 

0 

2 

1 

110? 

A 

bAC  5 S 

DAY 

0 

2 

1 

110? 

S 

b A C fcS 

DAY 

n 

2 

1 

1 1 (1? 

6 

bAC  7 S 

DAY 

0 

2 

1 

1 1 0? 

7 

BACHS 

DAY 

0 

2 

1 

1 10? 

8 

BAC  9S 

DAY 

0 

2 

1 

110? 

9 

B A C 1 0 S 

DAY 

0 

2 

1 

1 1 0? 

1 0 

BAC  1 1 S 

DAY 

0 

2 

1 

1104 

1 

BAC 1 ?S 

DAY 

0 

2 

1 

1104 

2 

bAC 1 3S 

DAY 

0 

2 

1 

1104 

3 

BAC  US 

day 

0 

2 

1 

1104 

A 

B A C 1 S S 

DAY 

0 

2 

1 

1 1 04 

5 

BAC  16S 

DAY 

0 

2 

1 

1 104 

ft 

e a c t?$ 

DAY 

n 

2 

1 

1104 

7 

H A C 1 8 S 

DAY 

0 

2 

1 

1 1 04 

8 

BAC 1 9 S 

DAY 

0 

2 

1 

1 104 

9 
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Table  9.  (Part:  3 of  7) 


H A ( 20  S 

DAY 

0 

fc  A C 1 S 

DAY 

1 

BAC  2S 

DAY 

1 

BAC  5S 

DAY 

1 

6 Af  4S 

DAY 

1 

HA  C SS 

DAY 

1 

BAC  6$ 

DAY 

1 

G A C 7 S 

DAY 

1 

B A C 8 $ 

DAY 

1 

BAC  VS 

DAY 

1 

BAC  1 0 S 

DAY 

1 

BAC  1 1 S 

DAY 

1 

BAC 1 2S 

DAY 

1 

fi  A C 1 5 S 

DAY 

1 

B A C 1 4 S 

DAY 

1 

fc  A C 1 5 S 

DAY 

1 

BAC 16S 

DAY 

1 

BAC 1 7 S 

DAY 

1 

BAC  18S 

DAY 

1 

BAC 1 VS 

DAY 

1 

B A C 2 0 S 

DAY 

1 

BAC  1 S 

INDEX 

1 

BAC2S 

INDEX 

1 

BAC  3 S 

INDEX 

1 

t A C 4 S 

1 N Dt  X 

1 

e ac  5s 

INDEX 

1 

BAC  6$ 

INDEX 

1 

bAC  7 S 

INDEX 

1 

BAC8S 

INDEX 

1 

BAC  VS 

INDEX 

1 

B A C 1 0 S 

INDEX 

1 

BAC  1 1 S 

INDEX 

1 

BAC  1 2 S 

1 NDt  X 

1 

BA ( 1 5S 

INDEX 

1 

B A C 1 4 S 

INDEX 

1 

B A C 1 S S 

INDEX 

1 

BAC 1 6S 

INDEX 

1 

b AC  1 7S 

INDEX 

1 

BAC 1 8S 

INDEX 

1 

t AC  1 vs 

INDEX 

1 

e ac  2os 

INDEX 

1 

BA  C 1 K 

day 

0 

BAC2K 

DAY 

0 

BAC  3K 

DAY 

0 

b A C 4K 

DAY 

0 

BAC  5K 

DAY 

0 

B A C 6 K 

DAY 

0 

BAC  7k 

day 

0 

BAC  8K 

day 

0 

BAC  Vk 

DAY 

0 

BA  C 1 OK 

DAY 

0 

B A C 1 1 K 

DAY 

0 

BAC 1 2K 

DAY 

0 

BAC 1 3k 

DAY 

0 

BAC  14* 

day 

0 

BAC  1 S K 

DAY 

0 

BAC 1 6K 

DAY 

0 

H A C 1 7 k 

DAY 

0 

2 1 1104  in 

2 1 1101  1 

2 1 1101  2 

2 1 1101  3 

2 1 1101  4 

2 1 1101  S 

2 1 1101  6 

a i iioi  ? 

2 1 1101  8 

2 1 1101  V 

2 1 1101  10 

2 1 1105  1 

2 1 1103  2 

2 1 1103  5 

2 1 1103  4 

2 1 1105  5 

2 1 1105  6 

2 1 1105  7 

2 1 1103  8 

2 1 1105  V 

2 1 1105  10 

2 1 1101  1 

2 1 1101  2 

2 1 1101  3 

2 1 1101  4 

2 1 1101  5 

2 1 1101  6 

2 1 1101  7 

2 1 1101  8 

2 1 1101  V 

2 1 1101  10 

2 1 1105  1 

2 1 1105  2 

2 1 1105  5 

2 1 1105  4 

2 1 1105  S 

2 1 1103  6 

2 1 1103  7 

2 1 1103  8 

2 1 1103  V 

2 1 110  3 10 

2 1 1106  1 

2 1 1106  2 

2 1 1106  5 

2 1 1106  4 

2 1 1106  S 

2 1 1106  6 

2 1 1106  7 

2 1 1106  8 

2 1 1106  V 

2 1 1106  10 

2 1 1108  1 

2 1 1108  2 

2 1 1108  5 

2 1 1108  4 

2 1 1108  S 

2 1 1108  6 

2 1 1108  7 


L 
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Table 

9 . 

(Part 

4 

of  7) 

EAC 18K 

DAY 

0 

2 

1 

1108 

8 

BAC 19k 

DAY 

0 

2 

1 

1 1 08 

9 

BAC20K 

day 

0 

2 

1 

1 108 

1 0 

B A C 1 K 

0 A V 

1 

5 

c 

1 

1 10S 

1 

B A C 2 K 

DAY 

1 

2 

1 

1105 

2 

BAC  3K 

DAY 

1 

2 

1 

1 105 

3 

BAC4K 

day 

1 

2 

1 

1105 

4 

BA  C Sk 

DAY 

1 

2 

1 

1 105 

5 

bac«sk 

DAY 

1 

2 

1 

1105 

6 

0 A C 7 K 

DAY 

1 

2 

1 

1 1 05 

7 

BAC8K 

day 

1 

2 

1 

1105 

8 

BAC  9k 

day 

1 

2 

1 

1 105 

9 

BA  C 1 OK 

day 

1 

2 

1 

1 1 05 

1 0 

B A C 1 1 K 

day 

1 

2 

1 

110  7 

1 

BAC 1 2k 

day 

1 

2 

1 

1107 

2 

BAC  1 5K 

day 

1 

2 

1 

1107 

3 

P A C 1 4 K 

day 

1 

2 

1 

1107 

4 

BAC 1 5K 

day 

1 

2 

1 

110  7 

5 

BAC 16K 

day 

1 

2 

1 

1107 

6 

6 A C 1 7K 

day 

1 

2 

1 

1 1 C7 

7 

BAC  1 8K 

day 

1 

2 

1 

1107 

8 

F A C 1 9K 

DAY 

1 

2 

1 

110  7 

9 

BAC  20k 

day 

1 

2 

1 

1107 

1 0 

BAC  IK 

INDEX 

1 

2 

1 

1 105 

1 

P A C ?K 

INDEX 

1 

2 

1 

1105 

2 

BAC  SK 

INDEX 

1 

2 

1 

1105 

5 

BAC  4 K 

INDEX 

1 

2 

1 

1 105 

4 

BAC  5K 

INDEX 

1 

2 

1 

1105 

5 

BAC  K 

INDEX 

1 

2 

1 

1105 

6 

BAC  7K 

INDEX 

1 

2 

1 

1105 

7 

BACftK 

INDEX 

1 

2 

1 

1105 

8 

B A C 9k 

INDEX 

1 

2 

1 

1105 

9 

BAC  1 OK 

INDEX 

1 

2 

1 

1105 

1 0 

BAC  1 1 K 

INDEX 

1 

2 

1 

110  7 

1 

EAC  1 ?K 

INDEX 

1 

2 

1 

110  7 

2 

BAC 1 3K 

INDEX 

1 

2 

1 

1107 

3 

BAC  14K 

INDEX 

1 

2 

1 

110  7 

4 

FAC  1 SK 

INDEX 

1 

2 

1 

1107 

5 

PA  C 1 6K 

INDEX 

1 

2 

1 

1107 

6 

BAC 1 7K 

INDEX 

1 

2 

1 

1 107 

7 

BA  C 1 8K 

INDEX 

1 

2 

1 

1107 

8 

P A C 1 9K 

INDEX 

1 

2 

1 

110  7 

9 

B A C 20k 

INDEX 

1 

2 

1 

1107 

1 0 

RAC  IS 

DAY 

0 

2 

1 

1 202 

1 

RAC2S 

DAY 

0 

2 

1 

1 20? 

2 

RAC  3S 

DAY 

0 

2 

1 

1 20? 

3 

R A C 4 S 

DAY 

0 

2 

1 

120? 

f. 

RAC5S 

DAY 

0 

2 

1 

1 20  2 

5 

RAC  6S 

DAY 

0 

2 

1 

1 20? 

6 

RA  C 7S 

DAY 

0 

2 

1 

1 20? 

7 

R AC  8S 

DAY 

n 

2 

1 

1 POP 

8 

RAC9S 

DAY 

0 

2 

1 

1 POP 

9 

RAC  IBS 

DAY 

0 

2 

1 

1 20? 

1 0 

RAC  1 1 S 

DAY 

0 

2 

1 

1 204 

1 

RAC  12S 

DAY 

0 

2 

1 

1 204 

2 

RAC  MS 

DAY 

n 

2 

1 

120  4 

3 

RAC  1 4 S 

DAY 

n 

2 

1 

120  4 

/, 

RAC  1 S S 

DAY 

0 

2 

1 

120  4 

5 
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Tab  le 

9 . (P 

art 

5 

Of  7) 

RA  C 16S 

day 

0 

2 

1 1204 

6 

RAC  1 7S 

DAY 

0 

? 

1 1 204 

7 

RAC 18S 

DAY 

0 

? 

1 1204 

8 

R A f 1 9S 

day 

0 

2 

1 12  0 4 

? 

RAC^OS 

DAY 

0 

2 

1 1204 

1 0 

RAC  IS 

DAY 

1 

2 

1 1201 

1 

P A ( PS 

DAY 

1 

2 

1 1201 

2 

RAC  3S 

DAY 

1 

2 

1 1201 

5 

RA  C AS 

DAY 

1 

2 

1 120  1 

A 

R A f SS 

DAY 

1 

2 

1 12  01 

S 

RAC6S 

DAY 

1 

2 

1 1201 

6 

RAC’S 

DAY 

1 

2 

1 1201 

7 

R A C 8S 

day 

1 

2 

1 1201 

8 

R A C 9S 

DAY 

1 

2 

1 1201 

9 

r a c ms 

DAY 

1 

2 

1 12  01 

1 0 

RA  C 1 1 S 

DAY 

1 

2 

1 120  3 

1 

RATIOS 

DAY 

1 

2 

1 12  0 3 

2 

RAC  MS 

DAY 

1 

2 

1 1 20  3 

3 

RACKS 

DAY 

1 

2 

1 120  3 

A 

RAC 1SS 

DAY 

1 

2 

1 1203 

s 

RAC 16S 

day 

1 

2 

1 1203 

6 

RAC  1 7S 

DAY 

1 

2 

1 1203 

7 

RAC  18  S 

day 

1 

2 

1 1203 

8 

RAC  1 9 S 

DAY 

1 

2 

1 1203 

9 

R A C 2 0 S 

day 

1 

2 

1 120  3 

1 0 

RA  C 1 S 

INDEX 

1 

2 

1 1201 

1 

RAf  ?S 

INDEX 

1 

2 

1 1 201 

2 

RAC  ^S 

INDEX 

1 

2 

1 1201 

3 

R A C A S 

INDEX 

1 

2 

1 1201 

4 

R A C *>  S 

INDEX 

1 

2 

1 1201 

5 

R A C6S 

INDEX 

1 

2 

1 120  1 

6 

RAC  7S 

INDEX 

1 

2 

1 120  1 

7 

RA  C 8S 

INDEX 

1 

2 

1 120  1 

8 

RAC  OS 

INDEX 

1 

2 

1 1201 

9 

ratios 

INDEX 

1 

2 

1 120  1 

1 0 

R A f 11  S 

INDEX 

1 

2 

1 1203 

1 

RAC  1 2$ 

INDEX 

1 

2 

1 1 2 0 3 

2 

RAC  1 3S 

INDEX 

1 

2 

1 1203 

3 

R A C 1 A S 

INDEX 

1 

2 

1 1203 

4 

R A C 1 5 S 

INDEX 

1 

2 

1 12  0 3 

5 

RA  f 1 6S 

I N D E X 

1 

2 

1 1203 

6 

RAC  MS 

INDEX 

1 

2 

1 1203 

7 

RA  C 1 8S 

INDEX 

1 

2 

1 1203 

8 

RATIOS 

INDEX 

1 

2 

1 120  3 

9 

RAC  2ns 

INDEX 

1 

2 

1 120  3 

i n 

R A C 1 K 

DAY 

0 

2 

1 1206 

1 

R A C 2 K 

day 

() 

2 

1 1 206 

2 

PAT  U 

DAY 

n 

2 

1 1206 

3 

RACAK 

DAY 

n 

2 

1 1 206 

A 

RAC  SK 

DAY 

n 

2 

1 1 206 

S 

R A C 6 K 

DAY 

n 

2 

1 1 206 

6 

R A C 7K 

DAY 

n 

2 

1 1 206 

7 

R A C 8K 

DAY 

n 

2 

1 1 206 

8 

RACOK 

DAY 

n 

2 

1 1 206 

9 

RAf 10k 

day 

n 

2 

1 1206 

1 0 

RAC  1 IK 

DAY 

n 

2 

1 1208 

1 

RAC  12K 

DAY 

n 

2 

1 1 208 

2 

R AC  MK 

DAY 

n 

2 

1 1 208 

3 

60 


Table 

9 . 

(Part 

6 

of  7) 

RAC  UK 

DAY 

0 

2 

1 1 208 

A 

RAC  1 5K 

DAY 

0 

2 

1 12  08 

5 

RAC  16K 

DAY 

0 

2 

1 1208 

6 

R AC  1 7K 

DAY 

0 

2 

1 1208 

7 

RA  C 1 8k 

DAY 

0 

2 

1 120  8 

8 

RAC  1 9K 

DAY 

0 

2 

1 1 208 

9 

RAC  20k 

DAY 

0 

2 

1 1208 

1 0 

RAC  IK 

DAY 

1 

2 

1 1 205 

1 

R A C ? K 

DAY 

1 

2 

1 1 205 

2 

RAC  3k 

DAY 

1 

2 

1 1205 

3 

RACAK 

DAY 

1 

2 

1 1 205 

A 

R A C 5 K 

day 

1 

2 

1 120  5 

5 

RAC  6K 

DAY 

1 

2 

1 1205 

6 

RAC  7K 

DAY 

1 

2 

1 1205 

7 

RAC  8K 

day 

1 

2 

1 1 205 

8 

RAC9K 

day 

1 

2 

1 120  5 

9 

RAC 10K 

day 

1 

2 

1 120  5 

1 0 

R A C 1 1 K 

DAY 

1 

2 

1 1 207 

1 

RAC  1 2 K 

DAY 

1 

2 

1 1 20  7 

2 

RAC  1 5K 

DAY 

1 

2 

1 1 207 

3 

RAC  UK 

DAY 

1 

2 

1 1 207 

A 

R A C 1 SK 

DAY 

1 

2 

1 1 20  7 

5 

R AC 16K 

DAY 

1 

2 

1 120  7 

6 

RAC  1 7K 

day 

1 

2 

1 1 20  7 

7 

R A C 1 8K 

DAY 

1 

2 

1 1 2 0 7 

8 

RA  C 1 9K 

day 

1 

2 

1 1207 

9 

RAC  2 Ok 

DAY 

1 

2 

1 1 207 

1 0 

R A C 1 K 

I N D E X 

1 

2 

1 1205 

1 

RAC2K 

INDEX 

1 

2 

1 1205 

2 

R AC  3k 

INDEX 

1 

2 

1 1 205 

3 

RAC4K 

INDEX 

1 

2 

1 1 205 

A 

R AC  SK 

INDEX 

1 

2 

1 120  5 

5 

RAC6K 

INDEX 

1 

2 

1 1 205 

6 

RA  C 7K 

INDEX 

1 

2 

1 1 205 

7 

RAC  8K 

INDEX 

1 

2 

1 1 205 

8 

R A C 9K 

INDEX 

1 

2 

1 1 205 

9 

RAC 10K 

INDEX 

1 

2 

1 120  5 

1 0 

R A C 1 1 K 

INDEX 

1 

2 

1 1 2 0 7 

1 

R AC  1 2K 

INDEX 

t 

2 

1 1207 

2 

R A C 1 3K 

INDEX 

1 

2 

1 1 20  7 

3 

RAC  UK 

INDEX 

1 

2 

1 1 207 

A 

R A C 1 5K 

INDEX 

1 

2 

1 1 207 

5 

RAC  16K 

INDEX 

1 

2 

1 1 2 0 7 

6 

R A C 1 7K 

INDEX 

1 

2 

1 12  0 7 

7 

R AC  18K 

INDEX 

1 

2 

1 1 207 

8 

R A C 1 9K 

INDEX 

1 

2 

1 1 207 

9 

RAC  20K 

INDEX 

1 

2 

1 120  7 

1 0 

PPC 

day 

0 

3 

1 160  5 

1 

RPC 

DAY 

0 

3 

1 1610 

1 

BUI  1 

DAY 

0 

3 

1 1 60S 

2 

BUI  2 

DAY 

0 

3 

1 160  5 

3 

BUI  3 

day 

0 

3 

1 160  5 

A 

HUl  A 

DAY 

0 

5 

1 1605 

5 

ewi  5 

DAY 

0 

3 

1 1 605 

6 

But  6 

DAY 

0 

3 

1 1605 

7 

ewi  7 

DAY 

0 

3 

1 1605 

8 

ewt  8 

DAY 

0 

3 

1 1605 

9 

BUI  9 

DAY 

0 

3 

1 160  5 

i r 

Table  9 


(Part  7 of  7) 


BRL  10 

o a r 

0 

3 

1 603 

1 1 

B 9 L 1 1 

DAY 

U 

3 

1 603 

1 2 

but  1 2 

DA  Y 

0 

3 

1 605 

1 5 

R«/L  1 

DAY 

0 

3 

1610 

2 

Rial  2 

DAY 

u 

3 

1610 

3 

RWL  1 

DAY 

0 

3 

1610 

u 

BUI  ( 

DAY 

0 

3 

1610 

b 

R a)  l 5 

DAY 

0 

3 

1610 

6 

RWL  6 

DAY 

0 

3 

1610 

7 

Hal  7 

DAY 

0 

3 

1610 

6 

R Wl  8 

DA  Y 

0 

3 

1 6 1 0 

9 

Rwl  9 

DAY 

0 

3 

1610 

1 0 

RWL  10 

0 A Y 

0 

3 

1610 

1 1 

R J L 1 1 

DAY 

0 

5 

1610 

1 2 

H W l 1 2 

DAY 

u 

3 

1610 

T 3 

(13*, 1217, 318) 

< 1 Of  1 0.2) 

(1  318.(1) 

(12*,  19.0, 1 1 F 7.0 , 5 f V.O  > 
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Table  10.  Format  for  Dictionary  Items 


33-34  Index  of  item  in  the  12  right  justified 

data  record 


When  the  REMTEX  user  requests  a report,  he  specifies  the 
Y-axis  variable  name,  X-axis  variable  name,  and  an  index 
value.  The  index  value  will  determine  whether  the  qualifier 
is  a 0 or  1.  The  Dictionary  is  then  searched  for  the  com- 
bination of  Y-variable,  X-variable,  and  qualifier  to  deter- 
mine whether  a request  is  valid.  For  any  valid  combination, 
the  Dictionary  will  provide  the  information  needed  to  locate 
the  data  on  the  Summary  Data  file.  The  format  index  will 
indicate  which  of  the  formats  listed  in  the  second  part  of 
the  Dictionary  will  be  used  to  decode  the  data  record,  and 
the  type  of  data  will  indicate  whether  the  Y-axis  variable 
is  real  (type  = 1)  or  integer  (type  = 0).  The  key  will  indi- 
cate the  key  of  the  data  record  on  the  Summary  Data  file  and 
together  with  the  index  value  will  determine  the  exact 
record  in  the  Summary  Data  file  that  will  contain  the  perti- 
nent data.  Finally,  the  index  of  the  item  in  the  data 
record  will  specify  the  exact  data  field  to  be  extracted  from 
the  data  record. 

The  second  part  of  the  Dictionary  file  contains  a maximum  of 
20  formats  which  will  be  used  to  decode  the  various  data 
records  on  the  Summary  Data  file.  This  set  of  formats  is 
ordered  and  the  indexes  of  the  format  statements  are  used  in 
the  list  of  Dictionary  items  as  described  above. 

The  Dictionary  file  is  structured  as  shown  in  table  11.  The 
list  of  Dictionary  items  is  followed  by  a flag  ZZZZZZ  to 
designate  the  end  of  the  first  part  of  the  file.  The  next 
item  on  the  file  is  an  integer  value  (in  12  format)  to  spec- 
ify the  number  of  formats  which  follow.  Each  format  is  then 
specified  in  A36  format,  beginning  with  "("  and  ending 
with  ")".  For  example,  if  the  data  is  in  10(F10.2,2X)  format, 
the  format  specification  would  be  ( 10 (F 10 . 2 , 2X ) ) . 

2. 3. 3. 2. 2 Commands  File.  The  Commands  file  contains  the 
groups  of  commands  that  constitute  a report  request.  The 
number  of  report  requests  on  one  Commands  file  is  theoret- 
ically unlimited.  This  file  is  an  input  to  RXPROC  and 
normally  is  loaded  by  the  RXEDIT  program  based  on  interactive 
user  responses.  The  command  is  located  in  columns  1 through 
3 and  the  text  is  located  in  columns  7 through  42.  The  legal 
commands  and  their  meaning  are  presented  in  table  12.  A 
sample  Commands  file,  as  produced  by  RXEDIT,  is  displayed  in 
table  13. 


Table  11.  Structure  of  the  Dictionary  File 


Data  Format 


1. 

Dictionary  items. 

As  shown  in 

table  10. 

2. 

Flag  to  designate 

end  of 

"ZZZZZZ"  in 

columns  1-6. 

Dictionary  items. 

3. 

Number  of  formats 

used . 

12  in  columns  1-2. 

4. 

The  formats. 

A36  with  " (" 

as  the  first 

character  and  ")"  as  the 
last  nonblank  character 
entered  in  columns  1-36. 
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Table  12.  Command  Identification  Keys  for  the  Commands  File 


Key  Name 

Command  Description 

RTT 

Report  title 

XAX 

X-axis  title 

YAX 

Y-axis  title 

XSU 

X-axis  scale,  upper 

YSL 

Y-axis  scale,  lower 

YSU 

Y-axis  scale,  upper 

XVB 

X variable  name 

YVB 

Y variable  name  and  its 
f ier 

FMT 

Output  format 

HAX 

Histogram  Y-axis  title 

HDD 

Histogram  data  display 

ODS 

Output  destination 

ERP 

End  of  report  number  n 

6 6 
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Table  13.  A Sample  Commands  File  Produced  by  RXEDIT 
I (Part  1 of  2) 


RT  T 

RED  WEAPONS 

LOSSES 

RT  T 

RT  r 

REPORT 

DATE 

- 19  JAN  77 

X A X 

DAY 

Y A X 

WEAPONS 

TYPE 

1 

YA  X 

WEAPONS 

type 

2 

Y A X 

WEAPONS 

TYPE 

3 

X SU 

20 

YSL 

0 

YSU 

25000 

XVO 

DAY 

Y ve 

RWL  1 

0 

Y V (3 

R WL  2 

0 

Y VO 

RWL  3 

0 

FMT 

etOT  H 

HA  X 

HDD 

YES 

0 D S 

00  TH 

ERP 

1 

f>7 


A 


Table  13.  (Part  2 of  2) 


rt  r 

DT  T 

RED  WEAPONS  LOSSES 

rt  t 

REPORT 

DATE  - 19  JAN  77 

XA  X 

DAY 

YA  X 

WEAP  ONS 

type  i 

Y A X 

WEAPONS 

type  2 

YAX 

WEAPONS 

TYPE  i 

XSU 

20 

YSL 

0 

YSU 

25000 

X V B 

DAY 

Y VB 

RWL  1 

0 

Y VB 

RWL2 

0 

Y VU 

RWL  J 

0 

FM  T 

table 

ERP 

2 
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2. 3. 3. 2. 3 File  Pointers  File.  The  File  Pointers  file  con- 
tains the  information  needed  to  locate  the  Dictionary  file, 
the  Summary  Data  file,  and  the  Commands  file.  This  file  is 
used  by  RXPROC  to  dynamically  attach  the  input  files  and 
normally  is  loaded  by  the  RXEDIT  program  based  on  interactive 
user  responses.  The  legal  records  are  presented  below: 

Columns  1-3  Columns  7-42 


DIC 

catalog- 

COM 

catalog- 

CFS 

catalog- 

TPN 

5-digit 

Summary 

file  string  for  the 

file  string  for  the 

file  string  for  the 

lef t- j ustif ied  reel 
Data  tape. 


Dictionary  file 
Commands  file 
Summary  Data  file 
number  for  the 


Table  14  shows  a sample  File  Pointers  file  created  by  RXEDIT. 


2 . 4 REMTEX  Flexibility 

Although  the  REMTEX  Postprocessor  system  was  developed  to 
support  the  new  IDAGAM  II  model,  it  was  designed  and  imple- 
mented as  a generalized  system.  Any  Honeywell  Series  600/ 
6000  user  can  use  REMTEX  by  keying  his  Summary  Data  file  and 
loading  a Dictionary  file  that  describes  the  contents  of  the 
Summary  Data  file.  Although  REMTEX  searches  for  a key  of 
DAY,  any  ascending  chronological  value  may  be  contained  in 
the  record,  such  as  week  number.  Since  the  user  specifies 
all  axis  and  report  titles,  a change  of  the  chronological 
value  would  be  transparent. 

Also,  if  the  user  does  not  have  access  to  a remote  terminal, 
he  may  bypass  the  RXEDIT  interactive  portion  of  REMTEX  by 
loading  his  File  Pointers  file  and  his  Commands  file  through 
the  regular  HIS  batch  procedure  as  described  in  subsection 
2. 3. 3.2. 

Finally,  if  the  user  does  not  have  access  to  a CalComp  7000 
plotter,  he  may  produce  all  of  the  allowable  output  formats 
solely  on  his  online  printer. 


Table  14. 


Sample  File  Pointers 


Fi le  Created  by  RXEDI$ 


DIC  674 IDPOO/CSC/DICT 
COM  674 IDPOO/CSC/RXCOMM 
TPN  99999 
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SECTION  3.  FINDINGS  AND  CONCLUSIONS 

Based  on  the  REMTEX  description  presented  in  this  TM,  the 
logical  conclusion  is  that  the  REMTEX  system  is  a valuable 
tool  for  users  who  meet  the  following  criteria: 

a.  The  user  has  access  to  an  HIS  600  or  6000  Series 
computer . 

b.  The  user  has  a requirement  for  the  display  of  his 
output  data  in  graph,  histogram,  and/or  tabular 
format . 

c.  The  user  has  one  or  more  programs  that  produce  or 
are  capable  of  producing  a keyed  BCD  output  file 
in  HIS  system  standard  format. 
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APPENDIX  A 

SOURCE  LISTING  OF  RXEDIT 


I 

A 


PRSC EDI  C,  PA.SE  3L/-.NK-NOT  flLMBD 


r 


*'TRUN  = 6?4IDPOr)/CSC/RXFDITHS(HFO.CORE=?4  ) 

c>»p»mftfr  ndp  = i onn 

tFAMCTf » RTIT»36(3),XT|I*36,YT|r»56(6>,XSUA6,YSL*6,YSU‘6, 
8<l/AR«6,YVAR»6<6>,QUAL*6(6>,!NPSC*6,lAPN0*e,CATFL*36,0UT#S*36, 
SOJTrM»56,HISTIL*36,RFPLY*4,CRP*6,DlCT«36,COMM*36.DISPA6 
CHARACTER  DNAM* 6 ( NOP , ? ) 

INTEGER  DOUAL (NOP) 

CHARACTER  rl  anxs  / 4 h / 

DIMENSION  BUF (330) 

CHARACTER  C At  F I L * 37  , S E M*  1 

RATA  SEM,ISTAT1,ISTAT?/"; ",  0 4 00000000000. 040 3 70 0000000/ 

data  isTATs/oooonononoooo/ 

I E R P = 0 

HR  I T E (06, 100) 

100  f ORM A 1 ( "NOT  I F Y COMPUTER  OPERATIONS  TO  OBTAIN  ALL  NECESSARY", 

8"  MAGNETIC  tapes  FROM",/, "THE  TAPE  LIBRARY.",//"  REMTEX  IS  EXECUTING 
8"  PLEASE  RESPOND  WHEN  = APPEARS.") 

c - enter  and  write  to  eile  30  the  needed  files  AND/OR  TAPES.  - 
633  WR I TE (06/4000) 

4000  FORMAT ("ENTER  CATALOG-FILE  STRING  FOR  THE  DICTIONARY/  36  ", 

3 "CHARACTERS  MAXIMUM.”) 

REA0(0S,?01)  0 I C T 
encooe(catfil,sooi>  dict/Sem 

SOOT  FORMAT ( A 36/ AT  ) 

C»LL  ATTACH  ( 1 0 / F A T F I L / 1 / 0 / I S I A T , 0 U F ) 
lMISTAT.EO.ISlAM.OR.lSTAT.FQ.ISTAT?)  GO  TO  66  6 
WR I TE(06,500?> 

510?  FORMAT (" I LLEGAL  CATALOG-FILE  STRING") 

GO  TO  633 

666  WRITF(06,40C11) 

4001  FORMAT ("ENTFR  CATALOG-FILE  STRING  FOR  THE  COMMANDS  FILE"/ 

8"/  36  CHARACTERS  MAXIMUM.") 

R F A 0 (OS / ?01  ) COMM 

E N C ODE ( C A T F I L / SOOT ) COMM/SEM 

CALL  ATTACH(15/C»TFIL,?/0/ISTAT,BUF) 

I F ( I S T A T . EO  . I S F A T 1 .OR  . I S T A T . EO  . I S T A T? ) GO  TO  SIS 
WRI TF(06,500?> 

GO  TO  666 
5 15  UR  I T E (06/ 11?) 

11?  FOR  M A T ( 4 S TIE  N TE  R INPUT  SOURCE  " T " / " T A P E ” . " 0 " / 0 R "DISK") 

RE*D(0S/?0?)  INPSC 

I F ( I NPSC  . FO . "D"  .OR . | NPSC . EO. "0  I SK" ) GO  TO  5?0 
I F ( I NPS  C . F(1  . ” I ".OR  . t NPSC  . EQ  ."  T APE"  ) GO  TO  5?5 
WRI TE (06,675) 

R/S  FORMAT!  "I LLEGAL  ENTRY") 

30  TO  SIS 
5 ? S UR  I TF (06/  1 1 3> 

113  FORMAT (”ENTE»  TAPE  NUMBER  OF  INPUT  SOURCE  - 5 INTEGER  DIGITS") 
READ(05,?n?>  T A P NO 

GO  TO  S 30 
S ? 0 CONTINUE 
WRI TF(06,114) 

114  FORMAT ("ENTER  CATALOG-FILE  STRING  OF  INPUT  SOURCE  - CAT-1"/ 

*"/C AT-?/ . .. /F ILF.  --  36",/,"  CHARACTERS  MAXIMUM.") 
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*0f05#-20t  ) CATFL 
ENCODE ( CATF 1L» 5001 ) CATFL.SEM 
CALI  ATTACM<?5,CATFIL»5,0,ISTAT,BUF) 
IFIISTAT.EO.ISTATI.OR.ISTAT.FQ.ISTAT?)  GO  TO  550 
WRITE  <06,500?) 

50  TO  5 ? 0 

550  CONTINUE 

W A I T F <06,400? ) 0 I C T 


CTO?  F 0 * M M ( " C A T A L OG - F ILF 

string 

f 0* 

r h f 

0 IC  r ionart  = • 

',  A 56  ) 

Wt  1 T F (06,4.00  5 ) COMM 
005  fOUMAT  rCMHOG-fllF 

STRING 

r or 

THE 

COMMANDS  FJIF 

= " , A 3 6 ) 

1 TF  (06, 7gO)  f NMSC 
7A0  fOMATCI  NPUT  SOURCE 
If  ( .EQ  ."If"  .0*  . 1 NPSC  . 

a " , A6> 
FO.  "M  SK 

•• ) 

GO  TO 

790 

WR  I TE  <06. 78  5)  TAPNO 

785  FORMAT  < " T APF  NUMBER  OF  INPUT  SOURCE  = ",A6> 

GO  TO  786 

7 90  WRITE  <06.  791  ) CATFL 

791  FORMAT  <"CATALOG-F  ILE  STRING  Of  INPUT  SOURCE  = "»A56> 

786  CONT INUE 
WRITE <06. 50  ? A ) 

5 0 ? 4 FORMAT  I” DO  YOU  WISH  TO  CHANGE  ANY  CATALOG  FILE  NAMES 
V 'YES'  OR  'NO'") 

REAO(05,?02)  REPLY 
IF <REPLY.EQ."YES")  GO  TO  655 
I F < REPL Y . EO ."NO" > GO  TO  975 
W R I T E ( 0 6 . 8 7 5 ) 

GO  TO  786 

975  WRI TE<33, 50?3>  PICT 
S0?0  F0RMAT<6HDIC  , A 56  ) 

WR I TE ( 5D.50?1 ) COMm 
5 0? 1 FORMAT  <6HC0M  . A 56 ) 

I F < 1 NPSC . EO.”D" . OR . I NPSC . EO." D I SK” ) GO  TO  970 
WR I T E < 50.968)  TAPNO 
96  R FORMAT! 6B  T PN  ,A6) 

SO  TO  974 

970  WRITE!  50, 97?)  CATFL 
97?  FORMAT  <6HC  FS  ,A56) 

974  CONTINUE 
WRIT  F <06 ,50?5 ) 

5 0 ? 5 FORMAT! ''00  YOU  WISH  TO  LOAD  THE  COMMANDS  FILE  - ’YES’  OR  ’NO 
R E » D < OS , ?0? ) REPLY 
I F < REPL Y . E 9. "NO” > GO  TO  650 
IF <RFPLY.EO."YE$">  GO  TO  901 
WR I TF(06,875> 

SO  TO  974 

C - READ  IN  DICTIONARY.  - 

931  NO  I e 0 
930  ND I =N0 I ♦ 1 
I F < NO  I .LE .NOP)  GO  TO  910 
WR I T F < 96.9?0)  NOP 

9 73  FORMAT  ("COMPLETE  DICTIONARY  IS  NOT  IN  STORAGE.",/,"  TIIERF  IS 
ft " R 0 0 M FOR  " , I 5 , " ITEMS.  PROGRAM  1 F R M I N A T F 0 . ” ) 

S TOP 


) 


ONI  Y 
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9 10  »KOH  (DNAM(NDl,l),I=1,2>,DQUAL(NDI) 

9L0  FOR" A 1 ( 2 ( *6,2  X > , I 1 > 

I F (DN*"( Nr  I , 1 ) .ME 1 1 III i" >G0  TO  ono 

950  NO  I = ND I - 1 

C - ENTER  COMMANDS  FOR  PLOTS.  - 

to  i s top  = o 

00  12  I = T , 5 

WR  I T F < 06, 101  ) I 

101  FORMA  T ( "E  NTF  * LINF  " , I 1 , " OF  REPORT  TITLE  - 56  CHARACTERS  MAXIMUM.'*) 
»E  » 0 ( OS, 201  ) R T I I < I ) 

’01  F OR  M A 1 < A T 6 > 

1?  CONTINUE 
w R I rr(06*iOL) 

1 9 L FORMAT! 4 5H ENTER  X-AXIS  TITLE  - 56  CHARACTERS  MAXIMUM.) 

RE  »0 <05,201 ) XT  I T 

NOTVAR  =0 

LOO  DO  500  1=1,6 

w R I TF(06,105>  I 

105  FORMAT! "ENTER  T-AXIS  TITLE  " , II  , " , 56  CHARACTERS  MAXIMJM.  IF  YOU",/  , 
5 " H A V F URE»»1  TRANSMITTED  YOUR  LAST  Y-AXIS  TITLE,  ENTER  ONF  BL*NX",/ , 
t " A NO  E » E C U T E * CARRIAGE  RETURN.") 

RE  A 0 (05,201  ) Y T I T ( I ) 

I F < Y T I T ( I > . EO . BL ANK S ) GO  TO  502 
NOYV*R=I 

500  CONTINUE 

502  IF(NOTVAR.GT.O)  GO  TO  501 
WR I T E (06, L05) 

L o 5 FORMATCTMe  first  Y-AXIS  TITLE  CANNOT  BE  BLANK.") 

GO  TO  LOO 

501  WR I TE ( 06, 1 0/ > 

102  FORMATCENTER  X-AXIS  SCALE(UPPER  E N » ) - - • 0 ’ , * 0 E F A UL T * , OR  A ", 

8 "POSITIVE  INTEGER,",/,"  which  IS  LESS  THAN  OR  EOU*L  TO  100.”) 

REAO(05,202>  XSU 

!F(XSU.EQ."0".OR.XSU.EQ."DEFAUL">  GO  TO  L50 
CALL  AOJUST(XSU) 

202  FORMAT ( A6) 

DECODE CXSU,L55>  IXSU 
L 5 5 FORMAT  (16) 

I F ( I XSU. G I .0 . AND . I XSU  .LE  . 1 00)  GO  TO  LLO 
WR I TE(06,*25) 

GO  TO  501 

LLO  WRllE(06,10g> 

IIS  FORMATCENTER  Y-»X!S  SCAlE(LOWE»  END),  AN  INTEGER”, 

«"  WHICH  IS  GREATER  THAN  OR”,/,"  EQUAL  TO  ZERO  ANO  LESS  THAN  ONE  MILLION. 
RE  AO(05,202>  YSL 

I E ( Y SL . EQ . ”0" . OR . Y SL . E Q. " OE F AUL” ) GO  TO  L L 6 
CALL  AOJUST(YSL) 

DFCOPF(YSL,L55>  IYSL 

I F ( I YSL . GE .0. *N0. I YSL .LT . 1 000000)  GO  TO  LL5 
L L 6 WP|TE(06,SZ5> 

39  TO  LLO 
L L 5 WR  1 T E ( 06, 1 09) 

109  FORMATCENTER  Y-AXIS  SCALECUPPE*  END),  AN  INTEGER", 

*/,"  GREATER  THAN  ZERO  ANO  LFSS  THAN  ONF  MILLION.") 


READ (05>2U2>  r SU 

I F C YSU. EQ."D" . OR . Y SU. EQ. "DE F AUL" ) GO  TO  44? 

CALL  AD J UST ( YSU) 

DEC00E(YSU,455)  1YSU 

t F < 1 YSU .6T.0. AND. I YSU .LT . 1 OOOOOO)  GO  TO  450 
4 4?  WR  I T E (06,  5 ?5> 

GO  TO  445 
450  ICOUNT=0 
1 060  I C OUNT  £ I r 0UN1 * 1 
100?  w» I TE ( 06, 1 1 0> 

110  F 0*0  * 1 < ”f N T E • X-AXIS  VAAIABLF  NAX£,  'DAY'  0*  * I N 0 E X • . " ) 

* f A R ( 05  , ?0?  ) l||  A A 

I r ( x v » • . f a . '■#  * y " .or . > v **  . r a.  " ndex")  GO  to  loot 

W*  I IF  (06/A00> 

Aon  FOAM*;  (”  11  t F [,<L  x AXIS  VAA1ABLE  USED.") 

55  TO  1 0 0 ? 

1 OOl  CONI  In  ■; 

00  510  | £ 1 , NO  r V A A 

101?  WR  I Tf  (06,  1 1 1 ) 1 

111  f or  mamjsm  enter  y-axis  variable  name  , ii) 

READ(1S,?1?)  Y V A R ( I ) 

4 ? 0 WRITE ( 06* 1 ?5)  I 

1 ? 5 r 0 A« A T ( "E N T E A QUALIFIER  VALUE  ",I  I,”.  IF  X-AXIS  VARIABLE  IS  'SAY'/”, 
5/z  "ENTER  *0'  TOR  TOTALS  OR  » POSITIVE  INTEGER  TO  SET  AN  INDEX  VALUE.'"*// 
R"  IF  X-AXIS  VAAIABLF  IS  'INDEX'/  ENTER  A POSITIVE  INTEGER  TO  SPECIFY", 
R/z"  THE  day  NUMBER.  THE  VALUE  MUST  BE  LESS  THAN  OR  EQUAL  TO  100.") 

AEAD(05,?0?)  OUAL ( I ) 

CALL  AD  JUST (QU*L ( I ) ) 

DE CODE ( QUAL < I > ,?03>  IQUAL 
?0T  F0RMATCI6) 

I F ( I QUAL .LE . 1 00. AND. I DUAL .GE .0)  GO  TO  410 
J»I TE(06,5?S> 
so  to  4?n 

410  I F ( I QUAL. NE.O)  I Q U AL - 1 
I F L A G = 0 

DO  1010  J £ 1 / N D I 

IF(YVAR(I).NE.DNAM(J,1))  GO  TO  1 0 1 □ 

1 F L A G = 1 

I F ( XVA A . EQ. DNAM( J / ? ) . AND. I QU AL .EQ . DQUAL ( J ) ) GO  TO  510 

mo  continue 
I F ( I Fl AG . NF .0 ) GO  TO  10?0 
JR  I TF ( 06/601 ) 

SOI  F OR M A T ( " I L LEG AL  Y-AXIS  VARIABLE  USED.") 

GO  TO  101? 

1 3 ? 0 IFCIC0UNT.GE.5)  GO  10  55  S 

I C = 5-1  COUNT 

WR I TF (06 ,5 1 0)  I C 

910  FORMAT <" I LLFGAL  COMBINATION  OF  Y-AXIS  VARIABLE/  X-AXIS  ", 

R''VAA  IABLE/AND  QUALIFIER  VALUE."//"  PROGRAM  WILL  ALLOW  YOU  " , I ? / 

R"  MORE  (RIFS  AT  A LEGAL  COMBINATION.") 

G 9 TO  10  60 

555  WR I T E (06, 560) 

550  FORMAT! "YOU  HAVE  FAILED  TO  REQUEST  A VALID  RE POR T T H E ENTRIES"/ 
R"  MADE  FOR  THIS  RFPORT  WILL  BE  IGNORED. "///"THE  ENTRIES  YOU  HAVE  MADE  ", 
R ” A R E AS  FOLLOWS  -"> 

I S T 0 P = 1 
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GO  TO  6J0 
51 0 CONI  I NU  £ 

5 5 7 WR  I T F <06, 1 1 6 > 

116  F ORMA 1 ( 68HE N 1 F R OUTPUT  10»«»T  - " H" . " H I S T 06 R AM " , "G" . " GR A PH" / "B " , 
*"90TH", "TABLE" > 

RE  A 0 ( 05 , ?0 1 ) OU  T F M 
IF (OUTFM.NE." TABLE")  GO  TO  541 
WAITE (06/600? ) 

610?  FORMAT("YOU»  SELECTION  WILL  CAUSE  A TABLE  To  BE  PRODUCER  BY  THE”/ 
g"  PRINTER.  NO",//”  PLOTS  WILL  BE  PRODUCED.”) 

GO  TO  605 

541  IF (OUTFM.EQ."M". OR. OUTFM.EQ." HISTOGRAM ".OR. OUT FM.EO."B" .OR. OUT FM.EQ. 
g ” 9 0 T H ” ) GO  TO  540 

IF (OUTFM.EQ. "6 ".OR. OUTFM.EQ. "GRAPH")  GO  TO  535 
W* I TF(06/R75) 

GO  TO  537 

540  WR I T E ( 06/ 1 1 7) 

117  FORMAlC'ENTER  HISTOGRAM  Y-AXIS  TITLE  - 36  CHARACTERS  MAXIMUM."/// 
*"JCAVX  DEFAULTS  TO  T-AXIS  TITLE  1") 

REA6(05/?01)  HISTIL 

5 5 3 WR I T E (06,  1 1 0 ) 

119  FORMATC’DO  YOU  WISH  TO  DISPLAY  6AIA  VALUES  ABOVE"/// 
g"  EATH  HISTOGRAM  BAR  --’YES’  OR  'NO'") 

R E A 0 ( 05  / ?0?  > DlSP 

I F ( 0 I 5P . EO. ’ YE S 1 .OR . 0 I SP .EQ . ' NO ' ) GO  TO  535 
W*  I TE ( 06 / A75 ) 

GO  TO  533 

555  WR I TE (06/ 1 1 5) 

115  FORM  AT ( 65HFNTER  OUTPUT  DESTINATION  - " C " / "t A L C 0 1 P " / " P " / " P » 1 N T E R " / ” B " / 
8 " 3 0 T M” > 

RE»t(05/?01)  0U1DS 

IF (OUTDS.EQ."c". OR. 0U1DS.EQ."CALC0MP". OR. OUTDS.EQ."P". OR. OUTDS.EO. 
g'»R I NTE R" . OR. OOTOS . £0 . "B".OR .0U/6S . EO. "BOT H" ) GO  TO  605 
WR I TE(06/87S> 

GO  TO  535 

C - display  retort  of  commands.  - 
615  WR1 IF (06/600) 

610  FORMAT ("DISPLAY  of  report  0FSIRE6  - ’YES’  OR  'NO'  " > 

READ(0S/?0?)  RFPLY 
I F ( REPL  Y .EO  NO"  ) GO  TO  610 
I F ( R F PL Y . FO . " Y E S" ) GO  10  630 
WR 1 TF (06.R75) 

GD  TO  605 

6 50  CONI  I NU E 
DO  710  1=1.3 

WR  I T E (06/  700 ) I , R r I T ( I) 


700 

FORMAT ("LINE  ",I 

1 OF 

AFPOff  T TITLE  * 

7 1 0 

CONTI NUF 

WRI  TF(06/7?0)  X T 1 T 

7?0 

FOff*AT(" X-AXIS  T 

I TIF  =• 

A 56) 

09 

7\ 0 I si  ,NOy V*» 

4* I T F ( 0A  , 7(,0)  I ^ Y T I T 

( I ) 

7U  n 

FORMAT ("Y-AXIS  T 

MIE  " 

# M / " - " * M6  ^ 

7^0 

CONI l NUF 
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WA 1 TE (06,750)  XSU 
750  EORMATC" X-AXIS 

SC  ALE 

( UPPER 

END 

) = ",A6> 

I F ( XSU.fO." D".OR.XSU. E Q • ' 

’ DE  F AUL" 

) GO 

TO  756 

W* ITE(06,755>  YSL 
755  FORMAK"  Y-AXIS 

scale 

(LOWER 

E NO  ) 

= " , A 6 ) 

JA I T E ( 06  , 760)  YSU 
760  FORMA TC*  Y-AXIS 

SC  ALE 

(UPPER 

E NO  ) 

= ” , A 6 ) 

756  UR I TE(06,  7 6 5 ) XVAR 

765  F ORM A T ( " X - A X 1 S VARIABLE  NAME  = ”,A6) 

93  770  |s1/N0rV*» 

WR1 TE(06»775'  I , YVAR  ( I ) ,QUAL  ( I ) 

7 7 5 FORMAT  ("Y -AX  I S VARIABLE  NAME  ",I1,"  AND  ITS  QUALIFIER  = ”,A6,?X,A6> 
770  CONTINUE 

I F v I S TOP. EO. 1 > GO  TO  & 70 
JR  I T E ( 06, 795)  OUTFM 

795  FORMAT! ’’OUTPUT  FORMAT  - ”,A56) 

I f ( OUFFM.Ea.  ” TABLE")  GO  TO  610 

I F ( OUT F M . E 9 . "G” . OR . OU T FM . FQ ,”GR ARM” ) GO  TO  6T5 
UR  I T F (06, 794  > HIST1L 

794  FORMAT ("H t STOGR AM  T-AXIS  TITLE  = ”,A56) 

JR  I TE ( 06,  795)  Dl SP 

795  f ORM A T !”D I 5PL AY  OF  HISTOGRAM  DATA  = ”,A6) 

6 T 5 UR  I T E (06, 79?)  OU  T OS 

797  FORMAT! "OUTPUT  DESTINATION  = ”,A56) 

610  WRITE (06,670) 

670  FORMAT ("DO  YOU  WISH  TO  XEEP  THIS  REPORT’  --'YES'  OR  ’NO'  ” ) 

RE » 0 (05, 70? ) REPLY 
IF  (RF PL r .e a ."NO" ) GO  TO  A70 
IF  (RF°LY.EO."YES'*  ) GO  To  6 4 0 
JAI!E(06,A75) 

GO  TO  610 

C - WRITE  ON  COMMANDS  FILE.  - 

640  I F RR= I E RP  » t 

DO  944  1=1,5 

JR  I TE( 15,94?)  RT  I T ( I ) 

94?  FORMAT (6HR  T T ,A56) 

944  CONTINUE 

UR  I TE ( 1 5 ,946)  XT  I T 

946  FORMAT! 6HXAX  ,A56) 

0 3 9 4 R !=1,N0YVAR 
URITF(16,950)  YTIKI) 

950  FORMAT (6HY AX  ,A56) 

94 H CONTINUE 

UR  I TF ! 15,95?)  XSU 

95?  FORMAT (6HXSU  ,A6) 

I F ( XSU. E 9. .OR . XSU . EQ.”DE F AUL")  GO  TO  967 

W»ITE(15,954)  YSL 

954  FORMAT (6HYSL  ,»6> 

JRITE(15,956)  YSU 

95  6 format  (6iiy$U  ,A6) 

96  7 UR  I T E ( 1 5, 958  ) XVAR 
?5A  FORMAT (6HXV0  ,A6) 

00  966  I = 1 , NO  Y V*  R 

UR  I TF  ( 1 5 ,960)  Y V A R ( I ) , 9U  A L ( I ) 
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960  F0RMAT(6HYVR  / A 6/ A6  > 

96  6 CONTINUE 

WR I t F < 1 5 .9  7g)  OUT  F M 

978  FORMA  T < 6HF  MT  , A J6) 

I F ( OUT F M . EQ. " 1 ABLE" > GO  TO  3000 

IF  (OUTFM.EO."G". OR. OUTFM.EO. "GRAPH")  GO  TO  969 
WR I TE ( 1 5 ,980) H I 5 T I L 

930  F0RMAT(6HHAX  /A36) 

WR  ! IF  (1  5 /9S1  ) MSP 

931  F0RMAT(6HM00  , A 6 ) 

969  WR  I IF  C 1 5/  9 76)  OU  T t>  S 
976  FORMAT ( 6H00S  / A 36) 

3300  FNC0DE(ERP.93?>  IE8P 
93?  F OR  M A T ( 1 6 > 

CALL  ADJUST(ERP) 

WR  I TE  ( 1 5 /98A ) ERP 
9 3 A FOR  M A T ( 6H  E RP  / A 6 ) 

870  WRITE! 06/118) 

118  FORMAT ( t 3H ADD  I T I ONAL  REPORTS  DESIRE#’  - "YES"  OR  "NO") 

REA0(O5#?O?)  RFPLY 

IFIRFPLY  .EQ."YES">  GO  TO  10 

I F (REPLY. EO. "NO")  GO  TO  6A5 

WR I TE(06/875> 

GO  TO  870 

C - DETACH  FILES.  - 

6 A 5 ENDF  ILE  13 

650  ISWITCMMSTATS 

CALL  OETACHC10/ISTAT/BUF) 

IFCISTAT.NE.ISTAT3)  [SWITCH = I S 1 AT 
call  DE  T ACH (1 5, I STAT / BUF  ) 

IFIISTAT.NE .ISTAT3)  I SUI TCH=ISTAT 
CALL  DETACH (30, I S T A T , 8 U F > 

IFIISTAT.NE. ISTAT5)  ISWITCHMSTAT 
CALL  OF T ACH <? 5, I S T » T , HUE ) 

IFCISTAT.NE.ISTATS)  I SUI TCH=I STAT 
I F ( | SU I T CH. E9 . I S T A T 3 ) GO  TO  651 
WRITE! 06/5005 ) 

5105  FORMAT ("UNABLE  TO  DETACH  FILES.  EXECUTE  A 'REMO  C L E A R F I L E 5 * " / 
8//"  AFTER  THIS  PROGRAM  TERMINATES.") 

651  CONTINUE 
WRITE (06/199) 

199  FORMA T ( 3 3HRE MT E X EDIT  PROGRAM  HAS  COMPLETED) 

WR I T E ( 06/  1 98 ) 

198  F0RMAT(///15HHAVE  A NICE  DAY) 

S TOP 
END 
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SUBROUTINE  ADJUSICBUFFT 
CHARACTER  RUFF*6,REC*1(6),BLANK*1 
DMA  RLANK/1M  / 

DEC0DE(BUFF,300>  ( R E C ( I) , I = 1 * 6 ) 
530  FORMA  T<  6A 1 ) 

DO  400  1=1,6 

I F ( REC ( 6- I ♦ 1 ) . f Q. RL ANK > GO  TO  400 
JJ=I-1 

I T ( J J . EO . 0)  RF  TURN 
GO  TO  410 
430  CONTINUE 
R E I URN 

410  DO  4 ? 0 I = 1 » J J 

0 9 4 S 0 j = 1 , 5 

REC (6-J  *1 > = RE  C < 6 — J > 

450  CONTINUE 
RE  C ( 1 ) 'BLANK 
420  CONTINUE 

E NC ODE ( BUF F , 5 1 0)  ( R E C < I > * I = 1 , 6 ) 

510  TORMAT  C6A1  ) 

RE  TURN 

end 
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APPENDIX  B 

SOURCE  LISTING  OF  RXPROC 
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PRECEDI  0 Page  BLaNK-MCT  FILMED 


1 

2 

3 

4 

5 

6 
2 
8 
9 

1 0 
1 1 
1 2 
1 3 
t 4 
1 S 
) 9 
1 2 
1 d 

1 9 
20 

2 1 
22 
2 5 

2 4 
25 
2 6 
2 2 
2 8 
29 
50 
5 1 
32 

3 5 
54 
35 
56 

3 7 
3d 
59 
40 

4 1 
4 2 
4 3 
4 4 

4 5 
46 
4 2 
4 3 

4 9 
50 

5 I 
5 2 
5 5 

54 

55 

56 


COMMON/PLOT ER/  XDAT<IT,100>»YDAT<11,IOO),NBR<11)* 

• YLAOlSl6»10>/XLABl<6)>lINES*TYPE*TITLE(6>*TlILE1<O)«r 

« TlTLE2<6)/TlILE3(6),XSCALE(11),YSCAL£ni) 

PAPA, 'IE  TER  NDP=1  000 
DIMENSION  J G« APH < 22 / 56 ) 

DIMENSION  H 1 SL Ad ( 6 > 

DIMENSION  ICHAR(36#2) 

Integer  CATF1L(7),ONE,THREE/TIVE*ONETHO»TREFOR/F1VSIX*UNDER1/ 

1 UNDER2 

DIMENSION  IUUAL(6)/IF0RM(6)/IENI(6)/1I»P(6) 

DIMENSION  IX(20)/X(20) 

DIMENSION  ITAPEC2) 

INTEGER  dUEEER(40U) 

CHARACTER  C G R Ap H * 6 I 2 2#  5 6 )/  C Nbu F F * 6 ( 7 )/  C Y L A DL  *6  I 6 * 1 0 ) * C h I SL  d *6  ( 6 ) / 

1 L1NSIZ*6(14) 

EUUIYALENCE  (lGRAPH<1*1>*CGRAPH<1,1>),UNBUTF<1)/CNbUFEC1>)* 

2 (HISLAd(1)»lHlSLa<1))»<YLAdLS<1,I)»CYLABL(1>1>) 

EQUIVALENCE  IX/IX) 

CHARACTER  DATV*126*ITABT*6/ITAB*6<6)»E0RMT*36 

character  form* 36 ( 20) 

CHARACTER  DN AM ( NOP , 2 ) / D T AB ( NDP ) 

INTEGER  D9UALCNDP>/DFORM(NDP)/DTYP(NDP)»DENT(NOP) 

DIMENSION  I NbOF  F C 2 ) 

INTEGER  TYPE 
INTEGER  UNIT  (6) 

INTEGER  TICK2/TICX4-T1CX6 

INTEGER  YLAbLSv  XL  ABl,  T I U E > TI  TL  E 1 * f 1 TLE2  / T 1 TL  E i'H  l SL  Ab 
INTEGER  XSCAIE*YSCAIE,XINC/Y1NC 
INTEGER  APO S I R / BL A NX / Y D A SH 

INTEGER  ApOST ,AP0S2,AP0S3/AP0S4,AP0S5/AP0S6/AP0S16*DAP 
INTEGER  g U A L (6)  * P T DAT  A (40/  100) 

CHARACTER  ICUMM*6.XVAR*6/YVAR<6(6) 


DATA  DAP/ OH  -’/ 

DATA  APUS1  /6  H * / 

DATAAP0S2  / 6 M ’ / 

DATA  AP0S3  / 6 FT  1 / 

DATA  APUS4  /OH  • / 

DATA  AP0S5  /6H  1 / 

DATA  AP0S6  / 6 H ‘ / 

DATA  APOS'6  /OH*  * / 


DATA  YDASH/6H / 

DATA  T ICK2/6H-* / 

DATA  T I C X 4 / 6 H *--/ 

DATA  TICK6/6H «/ 

data  uni T /I  000000,1 OOOOOr TOOOO#  TOGO*  TOO, 10/ 


DATA 

BIANK/6H 

/ 

DA  T A 

0N£  T WO 

/ * 

i 

? 

’/ 

DATA 

I R t F OR 

/ ' 

3 

u 

1 / 

DA  T A 

f I VS  lx 

/ ' 

5 

6 

’ / 

DATA 

ONE 

/ * 

1 

1 / 

DATA 

THREE 

/ ' 

3 

' / 

DATA 

f I V E 

/ ' 

S 

' / 

DATA 

U N l)  E R 1 

/ ' 

- 

* / 

DATA 

UNDER? 

/ • 

- 

- 

’ / 

DATA 

CATFlLt/)/'. 

; • / 

DATA  I ! APE  ( 1 ) /6H50IKI2U/ 


84 


5 7 
5 8 

5 7 
60 
61 
62 

6 3 
64. 
6 5 
66 
6 ? 
68 

6 V 

70 

71 

7 2 
7 5 
7 a 

75 

76 
7 7 
78 

7 V 

8 0 
8 1 
8 2 
83 
84. 
85 
8 6 
8 7 
36 

8 7 
7 0 

9 1 
9 2 
9 3 
9 4. 

75 

76 
7 7 
78 
7 9 

too 

1 0 1 

i 02 

103 

1 J4. 

105 
1 06 
10  7 
1 38 
1 ) 7 
1 1 0 
1 t 1 
1 1 2 


C •*  SECTION  A PERFORM  INITIAL  HOUSEKEEPING. 

C READ  FILE  POINTERS  FILE  (FC=30). 

C ATTACH  DICTIONARY  FILE  (FC=10)/ 

C RXEDIT  COMMANDS  Flit  (FC«15)/ 

C AND  INPUT  DATA  FILE  (FC=20/  TAPE  OR  DISC). 

C HEAD  AND  STOKE  DICTIONARY  DAIA. 

CALI  PLOTS(U/0/25> 
num  = 1 

I TAPNOsO 
MO  T = 1 0 

50  Ht AD(30/ 100/END=60/EkR=tt00)  L1NSIZ 
wR  I T E ( 0 6 / 1 0 0 ) L INS  l Z 

1C0MM  = L INS  I 2 ( 1 ) 

DO  51  1=1/0 

51  CNdUFF(l)  = L I N S 1 Z ( 1 ♦ 1 ) 


I F ( 1 COMM.  EO. 

'Die') 

GO 

10 

52 

I F ( I COMM  . Eg  . 

'Com' > 

GO 

TO 

5o 

1 F ( I C UMM  . EG  . 

' T PN  * ) 

GO 

TO 

55U 

1 F ( 1 COMM  . EO  . 

' C F s'  ) 

GO 

T 0 

555 

(.all  IRKMS(j(12**9(J1 

**901) 

GO  TO  50 

52  Do  55  1=1/6 

53  C AT  F 1L  ( I ) = 1NBUF  F ( I ) 

CALL  ATTACH  (M0T/CATFIL/1#()/1STAT/BUFFER) 

If(ISTAT.EO.O)  GO  TO  50 
WR I T E ( 06/606 ) C A T f IL/1STAT 
606  F0RMAT(1X/7A6/*1STAT=,/A6) 

CALL  ERRMSG( 7/S901 / >903) 

GO  TO  50 

56  DO  57  1=1/0 

57  CATFIL(l)  = I NbUF  F ( I ) 

CALL  ATTACH ( 15/CATF  1L  / 1/0/ISTAT /BUFFER) 

IF(ISFAT.EQ.O)  GO  TO  50 
WRI  TE(06/6()6)  CAT  F IL/  I STAT 
CALL  E RRMSG ( 7/ i901  / iV03  ) 

GO  TO  50 

550  continue 

I T APE ( 2 ) = 1 NbUF  F ( 1 ) 

CALL  MORE  ( I T APE  / 1 / I S T A T ) 

IF(ISTAT.EO.U)  GO  TO  551 
wRME  (06/  552  ) I S I A T 
552  FORMATCISTAf  FROM  MORE  = '/A6) 

WRITE (06/553 ) 

5 5 3 format  (• no  tafje  drive  - *ill  request  jo  « put  into  hold  queue') 
PAUSE  'PLEASE  PlACE  THIS  J0«  IN  HOLD  UNTIL  T AP t DRIVE  AvAIlABlE' 
GO  TO  550 

551  CON  T INUE 
REWIND  20 
GO  10  50 

555  CONTINUE 

DO  556  1=1/6 

CAT  F IL  ( I ) = INHU.r  F ( I ) 

556  CON  T INUE 

CALL  A T T ACH ( 20/ C A T F 1 L / 1 ^0/ I S ! A T / ) 

IF  ( J STAT.fw.U)  GO  TO  50 
WR I TE (06/606)  CATFIL/ISIAT 


1 1 5 

CALL  EKHMSGt  7/iVOI  , 1V03  ) 

1 1 4 

GO  10  50 

1 1 5 

6U 

C 0 N T I N U t 

1 1 6 

N D 1 = 0 

1 1 7 

M>  1 

N 0 I = N 0 I ♦ 1 

1 1 rt 

If  (No!  .It.NOf'J  GO  lO  5 08 

1 1 V 

CALL  ERKMSG<3/19U1/iVU3) 

t 20 

son 

READ<MOT/305/fcND=304,fcRR=320)  DNAM(NDi/1)/DUAM(NDl/2)/DQUAL<NDl)/ 

1 2 1 

X DFORM(NDl)/DTYP(NDI)/DlAb(NDl)/DENT(NDl) 

122 

305 

FORMA?  (2(A6/2X)  /I  1 * 2x  / J 2s  2 X * J 1/2X/A4,2X/I2) 

1 2 3 

IF(DNAM(N01#1).NE.'ZZ2ZZZ')  GO  TO  301 

1 2 4 

Rt  AD(M01 / 31U/END=325/E  R R = 3 20 ) NFS 

1 ^ S 

310 

FORMAT  (12) 

1 l 6 

DO  315  I = 1 / N F S 

1 2 1 

READ(MOT / 321  /END=325/ERR=320)  F 0 R M ( I ) 

32  1 

FOR  MA T ( A 36) 

129 

313 

CONI  I HUE 

130 

N 0 1 = N 0 l - 1 

1 J 1 

DO  3 09  I = 1 / N D I 

1 52 

WR  1 TEC06/305)  <DNAM(  1 # J ) / J * 1 / 2 ) / D <2  U A L ( I ) / D F 0 R M ( 1 ) / D T Y P ( 1)  / 

1 3 5 

X DTAd(I)/DENf(I) 

1 5 4 

309 

CONI  INUE 

1 3 5 

W*{  TE  <06 ,510)  N(  S 

1 56 

W«ITE<06/321)  (F0IIM(I),I  = 1,NIS) 

1 3 2 

GO  TO  5 

1 5 8 

304 

CALL  E RR MSG ( 14,1901 / >903) 

1 3 V 

320 

CALL  ERRMSG < 1 3/190 1 / 1903) 

1 4 0 

325 

CALL  L RHMSG ( 1 5/ 1901 / 1903 ) 

1 4 1 

5 

CON  1 1 NUE 

14  2 

C 

« * 

SECTION  t)  PERFORM  RECURRING  HOUSEKEEPING.  OUlPUl  D A I A POINTS 

1 4 3 

C 

WILL  BE  ACCUMULATED  IN  ARRAY  YDAT/  INDEXED  OY  LINE  NUMBER/ 

1 4.  4, 

C 

THEN  bY  INTEGER  X VALUE.  PRINTER  PAoE  IMAGES  WILL  dE  COLLECTED  IN 

1 4 5 

c 

ARRAY  IGRAPM  (CGRAPH)  INDEXED  BY  COLUMN  NO.  <6  COLUMNS  PER 

1 4 ft 

c 

COMPUTER  wORD)/  THEN  bY  ROw  NO. 

1 4 7 

wR  1 1 t < 06 / 7 ) 

1 4 8 

7 

FORMAT(lHl) 

1 4 9 

DO  5 J = 1 / 6 

15U 

M I S L Ad  < J ) = bi  ANK 

151 

3 

CATFIL(J)  = BLANK 

152 

DO  4 1=1/1) 

1 5 3 

DO  4 jsl/100 

154 

XDA  1 ( I / J ) =0 

1 5 5 

4 

Y D A T ( I / J ) = (J 

156 

DO  2 1=1/40 

1 5 7 

DO  2 J =1/1 00 

158 

2 

PTDAIA(1/J)  = 0 

1 5 7 

XSC ALE ( 1 ) =0 

1 60 

Y SC  ALE  ( 1 ) =0 

1 6 1 

TSC ALE ( 1 1 )*0 

162 

XSC ALE ( 1 1 )=U 

163 

I MDD  = 0 

1 64 

I S D F L I =0 

165 

I r E mp«o 

1 66 

NOT  I T L =0 

16  7 

NO  Y V A L =0 

1 68 

DO  TO  1=1/22 

r 


1 6 9 
1 70 
1 7 1 

l u 

1 7 J 
1 7 6 
1 75 
) 7 6 
? 7 7 
1 78 
1 7 9 
180 
1 8 1 

187 
1 8 3 
186 
138 

188 
1 8 7 
1 8 a 
1 8 7 
1 7 0 
1 7 1 
1 7 2 
1 7 J 
1 7 6 
1 7 8 
17* 
1 7 7 

1 78 

199 

200 

701 

702 

703 
206 
705 

2 0 8 
2 0 7 
708 
207 
210 
21  1 
2 1 2 

21  5 
2 1 6 
21  8 
2 1 8 
2 1 7 
2 1 8 
2 1 9 
2 2 U 

22  1 
222 
223 
226 


DO  10  J = 1 .56 
I 6R  APH ( I . J ) = bL AN* 

10  CONTINUE 

DO  15  1=1/6 

DO  18  J = 1 , 6 
15  YL  AUL  S ( 1 . J > =BL  ANK 
DO  60  1=6.22 
60  ! UH APH ( 1 . 67) = Y D ASH 

C **  SECTION  C HEAD.  INlERF'KEl.  AND  PROCESS  THE  COMMANDS  IN  THE 
C COMMANDS  FILE.  A1  EOF.  TERMINATE  ACTIVITY.  AT  FINAL  COMMAND  FOR 

C A REPORT  CERP’T.  BRANCH  TO  SECTION  0 

80  Continue 

READC1 5.10U,END=901,ERR=b00)  L1NSI7 
100  f ORMA I ( 2 2 A6 ) 

UR  I IE  <06. 100)  L I NS  1 l 
I COMM  = L INS  U < 1 > 

DU  70  1=1.6 


CNUUFf  < l ) = 

L INS  l l 

< 1 M 

) 

i r ( i comm. t u. 

• R 1 1 ' 

) 

bO 

TO 

500 

1 F ( 1 COMM  . EQ  . 

' X AX  1 

1 ) 

GO 

TO 

505 

I f ( I COMM.  fcu. 

• y a x 1 

1 ) 

bo 

T 0 

5 10 

l f ( i comm  . eu  . 

• xsu ' 

) 

bo 

T 0 

520 

IF ( ICOMM.kQ. 

* YSL  ' 

) 

bO 

T 0 

525 

I F ( I COMM  . EG  . 

* y su ' 

) 

bO 

TO 

530 

IF  ( ICOMM.fcQ. 

• X VB  ' 

) 

bO 

TO 

535 

I F ( l COMM  . EG  . 

' Y VH  ' 

) 

GO 

TO 

560 

I F ( I COMM  .6(1. 

»oos ' 

) 

GO 

I 0 

560 

If  ( I COMM. EG . 

' F MT  ' 

' ) 

GO 

I 0 

565 

1 F ( I COMM.fcU. 

' H AX  ' 

' ) 

bO 

TO 

570 

1 F ( I COMM  . EG  . 

* H Oo  1 

’ ) 

bO 

TO 

575 

I F ( I COMM  . EG . 

• 6RP  ' 

' ) 

oO 

TO 

902 

CALL  ERRMSGI1 .1901 

* » vO  3 > 

00  10  80 

500  CONTINUE 

nutitl  = notml*t 
DO  501  1=1.6 

T I TLEl  (NOT!  U * 6-6  ♦ I ) = 1 NbUf  F <1 > 

I OR  APH  <1 0*1 .52* NOT  H l>  = I NBUF  F ( I ) 

501  CONTINUE 
GO  TO  80 

505  continue 

DO  506  1=1.6 

XLA  ml ( I > =lNBUf  F ( I ) 

IoRAPH(8*I»50)=INBUFF( I ) 

506  CONTINUE 
GO  TO  80 

510  CONTINUE 

N0»  V AL  =NOYVAL* 1 
00  511  1=1.6 

VLAULSC  I .NOVVAL ) = IhUUF  F <1 > 

51 1 CONt INUE 
GO  TO  80 

520  CONTINUE 

IF  (CNbUF  F (1  ) .Eu.  'D  ' .UR.CNBUff  ( 1 ) .EG.  'DEf  AUL  ' ) I SOF  L 1 = 1 
IF  ( I SOF  L T .£  0 . 1 ) GU  1 U 80 
6 01  F U R M A I ( I 6 ) 


87 


A 


utCuok<CNt)Olt(l) 

,61.1  1 > XblALt  (1  1 ) 

226 

60  1 U 6(1 

nr 

s«>5 

COM  I N U k 

ll 6 

lMISDFlf.ku.1) 

U 0 10  hi 

III 

OECODECLNHUFMI) 

/ 6 0 1 ) Y j l A l F ( 1 ) 

l ill 

60  10  80 

l 3 1 

*30 

CONTI  NUE 

2 32 

IM  I SDF  L I . t Q . 1 ) 

bo  To  bU 

l 3 5 

L>E  C 0 0 t ( C Ndl)  f f ( 1 ) 

/ 6 0 1 ) yscaleci 1 > 

lib 

60  to  an 

235 

535 

CONTINUE 

lib 

XV  AO  = C NifU  f 1 < 1 ) 

l 3 r 

0 = 0 

l 5 3 

60  10  80 

l 3 V 

5 <♦  () 

CON  1 i NUE 

2 4 L) 

N = N * 1 

2 4 1 

If(N.LE.NOYVAL) 

b 0 10  5 A 1 

242 

CALL  ERRMSG(6»*901/J9l)J) 

l 4 5 

go  ro  #o 

2 4 4 

5 A 1 

YvAk(N)  = CNUUf  F 

c 1 1 

2 4 5 

be  CUOfc'  ( C NUUf f ( ^ ) 

*542)  UUAL(N) 

2 4 13 

5A2 

F o » ^ A 1(10) 

24  2 

go  ro  80 

2 4a 

560 

C ON  T INUt 

24  1 

1 P R 1 N T = 1 

2 5 0 

I P L 0 1 = 1 

25  1 

I F ( CNUUF  F ( 1 ) . E U . 

'CALCOM')  I P R I N T - 0 

252 

lF(CN(3UfF<1>.EU. 

* C • ) 1 P K I N T = o 

253 

1 F ( (.  NdU  F F ( 1 ) . t(J  . 

•PRIME')  I P L 0 T = 0 

254 

1 F ( C Nl» U f F ( 1 > • E Q . 

• P • ) I P L 0 T = 0 

255 

bO  TO  80 

256 

565 

CON  I I NUE 

25? 

IT  AHLt  =0 

258 

1 H 1 S T=  1 

2 57 

1 (j  R A F = 1 

260 

1 F ( C NBUF  F < 1 ) ,EU. 

• 6 R APII  ' ) I H I S T =0 

26  1 

1 F ( C N b U F F(1).tU. 

•6'  ) I H 1 S T = 0 

262 

1 F C CMBU  F F U > . td  . 

' H 1 S T 0 G ' ) 1 6R  A f = 0 

26  3 

I F ( C NdU  T F ( 1 ) . E 0 . 

• H • ) I6RAC  =0 

2 a 4 

IF (CnOUFF (1 ).Nt. 

' I AtTLE  ' ) 60  TO  8U 

265 

I T A ti  L t = 1 

266 

Iv,R  AF  = 0 

26  ? 

I H I $ T = 0 

268 

1 P R I N T = 1 

2 61 

l P L 0 T = 0 

2?0 

bO  TO  80 

2 7 1 

570 

CON  T I NUF 

2 7 2 

DO  571  1=1/6 

2 ? 3 

5 71 

HI  SLAtJ  ( I ) = 1 NdUF  F 

( I ) 

2?4 

GO  TO  80 

2 ? 5 

575 

IF  (CNbUFF  ( 1 ) . E u . 

’YES')  I H D 0 = 1 

276 

GO  10  80 

2 7 7 

C 

I RH E COW l R AbLE  I/O  - TERMINATE  PROGRAM 

278 

6 10 

CALL  ERRMS6C 10*1901 , t90i> 

2 ? V 

c 

I HR  C COV  t R A ll  L L I/O  - TERMINATE  PROGRAM 

280 

#00 

c o n r INUt 

88 


2 8 1 

call  ERRMSG <2. 590) , iVOj ) 

2 8 2 

c 

TERMINATE  program 

283 

9 U 1 

t ON  T ] NOE 

289 

CALL  PLO I Tr (0 ) 

285 

CALL  T DU  MP ( 2 5 ) 

2 8 0 

STOP 

28  ? 

905 

REWIND  20 

2 6 0 

GO  TO  5 

28  > 

c 

* * 

SECTION  D COMPARt  COMBINATION  OF  Y VARIABLE  NAME#  * VARIABLE 

2 9 J 

c 

NAME  AND  QUALIFIER  AGAINST  DICTIONARY  FOR  VALIDITY  OF  REPORT 

2 V 1 

c 

REQUEST . 

292 

902 

CONI  1 NOE 

2 9 5 

500 

DO  550  J=1,N0YVAL 

2 94 

IUIML  ( J 5 =0 

2 9} 

IF (OUAL(J).Nt .0)  IQUAL(J)=1 

2 9 8 

00  390  I = 1 . N D 1 

29  2 

l F ( Y V AR ( J ) .NE.ONAM ( I . 1 ) .OR .XVAR . NE . ONAM( I . 2) .OR. I QU*L  ( J ) .NE . 

2 98 

X DQUAL ( I ) ) GO  10  390 

2 99 

I FORM! J ) = DF  ORM ( I ) 

3 00 

ITYP(J)=DTYP<1) 

in  l 

1TAU(J)=D1AUCI) 

i O 2 

ItNT(j)=DENTCI> 

50  5 

GO  10  350 

50  9 

5 A 0 

CONI  I NOE 

505 

WR 1 IE  (06.360)  Y V A R (J  ) .XVAR.lQUAL  (J)  . INBUFF ( 1 ) 

506 

5 oO 

F OR  MAT  ( 2 ( A6 ,2X ) . I 2 .2X.  ' COMO  1 NA I I ON  IS  NOT  LISTED  IN  THE*. 

50  ! 

1 'DICTIONARY.  REPORT  NUMBER'.Ab.'  HAS  BEEN  OMITTED. *) 

508 

CALL  Err  MSG (6. 4 901 . r 9 U 3 ) 

509 

c 

* * 

SECTION  E READ  Y VARIABLE  DATA  FROM  INPUT  SOURCE. 

510 

550 

CON  1 INUE 

5 1 1 

M I X = 1 

512 

IFCXVAR.Eo.* INDEX')  GO  TO  952 

51  5 

900 

RtAD(20.9|0,tND=999,ERR=81U)  ITABT.INDX.DATV 

51  9 

9 1 0 

FOR  MA  T ( A9 , I 2. A 1 26) 

5 1 5 

IFCirArfT.NE.’OAY  *>6U  TO  9 00 

5 1 6 

10AY=INDX 

5 1 ! 

Ml  X =MAXU (Ml  X.  1 D A Y ) 

51  8 

915 

READ(20.910.END  = 9 89,ERR  = 8lO)  ITABI.  indx.datv 

519 

I F ( I T AB T . NE . ' DA Y * ) GO  To  905 

520 

1 DA  Y = I ND  X 

52  1 

M I X = MAX(i ( M 1 X , I D A Y ) 

522 

GO  10  915 

52  5 

905 

DO  920  J = 1 »NOY  V AL 

52  9 

1 F < I T AB T .Nl  . I T ABC J ) ) GO  1 0 920 

525 

IF (IQBAl(J).Eq.O)  GO  10  918 

526 

1 F ( QllAL  ( J ) .NE  . I NOX  ) GO  1 0 920 

5 2 9 

9 1 8 

NF  = I F ORM ( J ) 

52  8 

F 0 R M 1 = F 0 R M ( N F ) 

52  9 

lr(IIYPCJ).LU.O)  GO  10  950 

5 50 

OECOUE(DAIV.FORMI)  (X(1).I=1.|ENT(J>) 

551 

GO  10  955 

5 52 

9 50 

OECODEIOAIV.fORMT)  (IX(I).I=1.IENT(J)) 

5 5 5 

X ( I ENT  ( J ) )-  I X ( 1 EN  1 ( J ) ) 

359 

935 

YDAIU.1DAY)=X(1EN!(J>> 

5 55 

9 20 

CON  T I NUE 

556 

GO  TO  915 

1 


: - i J .*  • , l : i4  p X « D A 7 V 

GO  r0  450' 


* 

' hrsftl  0)  1 UB’  !f!M#0ATV 

t y <•  s s 

' ALU).  (<1 E - I \>At)  O 0 TO  4 / U 


. 1 = t t E N T ( J ) > 

«,  : ; < i-1  I € T s J ) ' 


- E N OH I T T t 0 ' 3 
•:  n • 9 # S 9 r ' - i 90  3 ) 

; c r . N OMUTEl)  SINCE*) 

" j *•  < m r.  \i  MUM  VALUES  of  THE  * V a ' '•  •'  9 - - 
f a . ; - 1 ! U L S T U S E 1 THE  SCALES'  T F * ' 

■ c r : JOSE  SCALE  VALUES  TOO  5-WM.  f Ow 


' . M • 1"  “ J r • > > 


i tM'  * 1 ¥ M A l * T 

*.  ' v fi|  N . • .yscalkd.ano.ivmax.le. 

t ; V 7 

. . • • 1 1 , i,  vu  j ) 

• . I ' II  ) ♦ 9 V / 1 0 ) * 1 0 


9 0 


393 

3 

59  S 
3 Vo 

3 97 
59d 
59  y 

4 0 0 
401 
4 0 <2 
4 0 3 
4 14 
43^ 
4 06 
4 0 7 
40  ft 
4 0 7 
4 10 
4 1 1 
4 1 l 
4 1 5 
4 1 4 
4 1 ; 
4 1 o 
4 1 7 
4 1 6 
4 1 ; 
4?n 
4 <?  1 
4 7 7 
4 7 3 
4 7 4 
4 £ S 
47b 
477 
4?d 
429 
4 30 
4 5 I 
432 
4 3 3 
4 5 4 
4 3 5 
4 35 
4 5 7 
4 5 b 
4 3V 
4 4 0 
4 4 3 
4 4 2 
4 4 3 
4 4 4 
4 4 5 
4 4 6 
4 4? 
4 4 1 


DO  466  1=1/6 
J = 1 

4 66  IF  ( I YMAX .bT .UNI  T ( 1 ) ) GO  TO  48? 

48?  YSCALE<T1>=YSCALE(11>4UNIT<J) 

IF  (>  SCAl  till  ) .1  ! .UMAX)  bO  TO  487 
Y l N C = Y SCALE  ( 1 I ) / 1U 
GO  TO  406 

4 9?  XSCALE(11)=((XSCALt(11)4V)/1U)*10 
XI  NC  =X  SC  Abt  ( 1 1 ) / 1 0 
YSCALEC1  >=(YSCAlE<1  J / 1 0 ) * 1 0 
YSCALE(U)=(cYSCALE(T1)49)/10>*10 
Y1NC=(YSCALE(11)-YSCALE(1))/10 
496  CONTINUE 

DO  498  1=2,10 

xSCALE(1)=XSCALECI-1)*X1NC 
4 9 8 Y SC  ALE C l > =Y SC AL E C 1 - 1 ) » Y INC 
C WRIIE  THE  D A I A TO  UE  I' LOTTED. 

WR  I TEC  06/4  6?) 

48?  FORMAT  ( 1 Y-DATA*  ) 

DO  481  J=T/NOYVAL 

DO  481  1=1, MIX 

WR I TE (06/483)  J/l/YDAI (J/I) 

465  FORMAT (? ( 2 X / 1 2 ) , 2 X / F 10.?) 

481  CONTINUE 
910  REWIND  ?U 

C **  SECTION  G ALL  DATA  VALUES  HAVE  BEEN  ACC  .MULAlED  IN  ARRAY  YDAT 

C EACH  DATA  VALUE  IS  CONVERTED  FOR  THE  0,.  (A  POINT  MATRIX  P T DA  T A . 

C PTDAIA  IS  DIMENSIONED  E»  V 40  FOR  THE  WOWS  Of  POINTS  ON  A PRINTER 

C PAbE  / THIN  BY  100  FuR  THE  COLUMNS  Of  EOIN'1  ON  A PRINTER  PAbE. 

Du  200  N=1 /NOYVAL 

1 = NOYVAL  41  - N 

DU  ?00  0=1/100 

1 F ( Y DA T ( 1 , J ) . E 0 .0 . 0 ) GO  10  200 

ratio=cyd*tu/J>-yscale<1))/(ysCalE(ii)-yscale<1)) 

IF  (RAT  10. LT.  0 . IJ  > CALL  E R RM  S G ( 4 , S 9U  1 / »VQ  3 > 

I F ( R AT  10 .GT  .1  .0)  CALL  E R RM S G ( 4 / J 90 1 / 49 U 3 ) 

?=RATI0*40.0 
X = / 4 0 . 5 
If (K.LE.O)  K- 1 
If  (K.GT.4U)  X = 4 0 

I F CP TOAI A (k# J ) .NE .0)  CALL  ERRMSG ( 5/ t V01 , i90i ) 

P1DATA(K/J)=1 
200  CON  1 INUE 

I F ( I PLO  r .Eo .0)  GO  1 U 920 

C *•  SECTION  H S E 1 UP  AND  CALL  SUBROUTINE  PLOIUR  FUR  LINE  GRAPH* 

C HIS  FOGRAMS. 

DO  905  1=1/6 

905  N-JRU)  = MIX 

1 F ( | GRA t . E G . 0 ) vjO  TO  915 
C LINE  bRAPII  REUUIREO 

TYPE  = 1 
LINES  = NOYVAL 
CALL  PLOFTRCNUM) 

NUM  = NUM»1 

915  1 F ( I HI S T . EG .0)  GO  TO  920 
C HISTOGRAM  REUUIREO 
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A 14  U 


AD-A040  634 


UNCLASSIFIED 


COMPUTER  SCIENCES  CORP  ARLINGTON  VA  p/G  9/2 

DESCRIPTION  OF  THE  REMOTE  TERMINAL  EXECUTIVE  (REMTEX)  POSTPROCE— ETC (U) 
JAN  77  W H POLL ITT » M C FLYTHE  DCA100-74-C-0002 


CCTC-TM-144-77 


NL 


449 

KPt  = 2 

4 50 

C «i.  i "t.  01 TR  > WOrt  > 

451 

■JU.M  = di.'l  1 

4 5 2 

920 

IF(IPW'.Ed.U)  60  10  5 

453 

C 

V;!  OP  PRINT  PAUL  IMAGES  AND  NRIIE  POINT  GRAPHS- 

4 3 4 

c 

fiS'  AM?-  AID  TABLES  To  IHE  ONLINE  PRINTER. 

453 

C 

456 

C 

SET  UP  » SCALE  INCRtMENIS  AND  AXIS 

457 

OO  T 20  1 = 1-11 

4 5« 

£0C  Ct  C CO  CAP  ! ( ‘ - J* I * A) , 700)  V SC  ALE  1 1 2- I > 

4 59 

700 

f ORMAT  ( 1 3.' 

460 

R = r SCAI,  E C 1 2-  I ) / 1 000 

461 

IFCK.EQ.O)  00  To  120 

46? 

EN CODECCG RAP HC4, 3*1*4), 7J1)  x 

4 6 5 

170 

CON  T ■ NyE 

464 

Do  122  1=7-47 

4 6 3 

’22 

ripe  0-1  1 GRAPH  ( 5-  I >)=  FLD<30,6-OAP> 

4 66 

CO  124  1=7-47-4 

46  7 

1 ?<. 

. A ( ■ ■ • 6 - ; C ■'  A P t|  < 5 , I ) ) * F L D ( 2 4 - 6 - D A P ) 

468 

:iil  ilji.Eu.lU  GO  10  22  5 

4 6V 

C 

SET  OP  HISTOGRAM 

4 70 

I ! M ISLASCl ) .NE .HLANK)  GO  10  204 

4 7 1 

Do  903  1=1-6 

472 

305 

HI S L«B(  I ■ = YLA6LSCI/T) 

473 

204 

CONT  IN'JE 

4 7 4 

CO  7 _■  5 =1-6 

4 75 

205 

DECODE fCHlSLU(l)-6lJ)  (!CHARCJ-1)-J=!*6-5,36) 

4 76 

DO  2Qo  1 = 1 1-46 

4 7 7 

2 06 

ENCOU.xt  RAPM(3,I  > -619)  I CHAR ( I -1 0, 1 ) 

4 76 

619 

FORMATCSx-AI) 

4 7 V 

O'  TO  i = 1 - X S C A A E ■ 1 1 ) - 1 6 

4 30 

DO  211  5*6-22 

46  1 

Do  211  A * 5- 4 6 

482 

1 oK I'l! J - 46)  = OL  ANA 

483 

2 1 1 

1 G3  APH  < J - X ) = bL  A NX 

48  4 

C 712  J = 6 - 2 1 

485 

X = i 1 J -6 

486 

I--! ..  .ui.xscale  m , j go  io  22c 

437 

,Kx.5T.,'lx)  GO  1 0 2 2 0 

43  6 

ENC  oDF  : 1 ■ « " ■ . ' 1 - 4 3 ) ,250  > X 

439 

250 

FORMA  1 . 1 x , I 3 , 2 X ) 

4 90 

30  213  L = 7 - 4 6 

49  1 

1 F ( ! ' A I A : 4 7-l -X ) . NE . 1 ) GO  10  215 

4 92 

I ;,S  APR  ' ; .1  ) = 1 0 A SH 

49  3 

1 F < 1 • ' . W.  0)  GO  ••  0 CIS 

4 94 

1 r = tip  = T da  ; ( 1 - x ) 

4 95 

Ej.jDEC  SAIH  |-l-1)-711)  ilEMP 

49  5 

215 

c on  f ; nl'E 

49  7 

1 ( ( 1.  . EU  ' 6 • GO  TO  212 

498 

DU  2 14  M=L  * 1 » 4 6 

4 99 

IF'J.NE.ft)  ‘GRAPHCj-HI*  APOSl 

5 00 

2 14 

1 G R APH ( _ * 1 , M ) s APOSl 

501 

GO  10  212 

502 

2 1 3 

CON  I INCH 

50  5 

2 1 2 

CONT INUE 

504 

c 

OUTPUT  11  1 S 1 UGR  A M 

92 


505 

506 

507 
5oa 

50  7 

510 

511 

512 
515 

514 

515 
5 16 

51  7 
51a 
517 

520 

521 

522 
5 2 5 

524 

525 

526 

527 
52a 
52V 
5 i 0 

551 

552 
555 

554 

555 

556 
55  7 
556 
559 

540 

541 

542 
545 

544 

545 
5 4 6 

54  7 

546 

549 

550 

55  1 
552 
555 

554 

555 

556 

557 

558 

559 
56U 


UR1 IE(0o.101 ) 

101  FORMAT ( 1 H 1 ) 

NRI  TE((>6/100>  IGRAPH 

210  continue 

C OUTPUT  FINAL  PAGE  OF  HISTOGRAM 

220  bR I TEf 06, 101 ) 

UNI  IE (06* 100)  IGRAPH 
225  IF  ( IgRAF  .EO.(I)  GO  TO  950 
C SET  UP  POINT  GRAPH. 

C 

C SET  UP  Y AXIS  LABELS. 

00  546  1=1/6 

00  546  J = 1,6 

546  DECODE (C  YLAOL (J /I ) /610)  I C H AR C J • 6 - 5 / I T / I C H A R ( J * 6- 4 / I) / 

* ICmAR(J+6-5,I>,ICHAR(j+6-2,1),IChARU*6-1,1),1CHAR<J*6,1> 

610  FORMAT (6A1) 

00  547  1=11/46 

ENCODE  ( C G R A P H ( 1 / 1 ) / 620)  ICHAR<|-10,1),ICHARU-10,2> 
ENCOOE(CGRAPH(2,I),620)  ICHARfI-10/5>/ICHAR(I-10/4) 

54  7 ENCODE (CGRAPHC  5 / l ) /620)  1 CH AR < I - 1 0/ 5 > / I CH AR ( I - 1 0/6 ) 

620  FORMAT 12X/A1 /2X/A1  ) 

J gR  APH( 1/8) =UNE 
IuR APM  < 1 /9)=UNDE  R 1 
I F ( NOT VAL .EU. 1 > GO  TO  590 
IgRAPhC 1 /8  > = ONE  TWO 
IgRAPHM  ,9)  =UNDER2 
IF  (NurVAL.EH..  ) GO  10  590 
I GR  APh ( 2/b) =TMREt 
IGRAPH (2/9)=UNDER1 
IF (NOYVAL. EO. 5)  GO  TO  590 
IGR  Apii  (2/a)  = tREFOR 
IgRAPH <2/9)=UNDER2 
I F ( NOYVAL .E U.4 ) GO  TO  590 

1 GRAI>H(  5/8)  = F IVE 
IGRAPHC 5/9)  = UN  DERI 

I F ( NOYVAL .ED. 5)  GO  To  590 
I GR  APH ( 5/8>  = F 1 VS I X 
IuRAPHC 5/9>=UNDER2 
C SET  UP  X SCALE  INCREMENTS 

590  CONTINUE 

00  548  1=6/22/5 
IgR  APH( 1*1/47)=  TICX4 
IF ( I .GE .21)  GO  TO  548 
IgRAPHC I *5,47)=  TICK2 
IGRAPHC  I + 4/  47)  = TICX.6 

548  CONTINUE 

00  549  1=6/22 

549  I GR  APH ( 1/48)  = ULANK 
J=1 

DO  150  1=5/22/5 

ENCODECCGRAPh  (1/48),  711)  X SCALE (J ) 

711  FORMAT (16) 

150  J = J+5 
J =2 

DO  140  1=7/22/5 

ENCODe(CGRaPh(1/48),712)  xscale(j) 
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5o1 
5 6 7 
56} 

564 

565 

566 

567 

568 
56V 
5 70 
571 
5 7 7 
573 
5 74 
575 
5 76 

577 

578 
5 7V 

580 

581 
587 
585 

584 

585 

586 

587 

588 

589 

590 
5 V 1 
597 
5 V 5 

594 

595 
5 96 
5 V 7 
5V8 
5 V 9 
600 
601 
607 
60} 

604 

605 

606 

607 

608 

60  V 
610 

61  1 


717  FORMAT (14) 

14  0 J = J * 3 
J = 3 

00  1 50  l = V#  7 7/ 5 

ENCOOECCGRAPH (1,48), 713)  XSCALE(J) 

71 3 FORMAT (17) 

150  J=J *S 

C SEf  OP  DATA  POINT  $ 

DO  730  1=6,77 
DO  730  J =6,40 
730  I G R A PH  ( 1 ,J)  = BLANK 
DO  735  1=1,40 

DO  735  J=1,100 

If < PIDATA ( I , J) .£0.0)  60  10  735 

K = ( J ‘ 1 0)/ X INC 

1 F ( K .£  Q .0)  K = 1 

7 = 6.0+  (X-1I/6.0 

1 = 7 

A = 56.0* (7-L> 

M=A *0.1 

FL D ( M, 6,  I 6k APH ( L , 4 7 - I ) > = f L 0 ( 3 0 , 6 , P I D A T A ( 1 , J ) ) 

735  CONTINUE 

C OUTPUT  POINT  GRAPH 

UR  I TE (06, 101  ) 

URI  TE(06, 100)  I GRAPH 

950  I F ( I TABLE  .E U .0)  GO  TO  5 

C SET  UP  TABLE 

1PA0E  = 0 
L1NECT=1 

C SET  UP  ANO  OUTPUT  HEADERS 

951  CON  T I NUE 

IPAGE  = IPAGE  ♦ 1 
URI T E ( 06 ,101) 

WRI1E(06,6S0>  (TITLfc1(I),I=1,6)»IPA6E 

650  FOR MA T ( 48x, 6A6, 75X , 5HP AGE  ,17) 

UR  1 TE (06,65  1 ) ( T I TLE7 ( 1 ) ,1 *1 ,6) 

WR1  TE (06,651  ) ( T I I LE3 C I ) ,1 *1 ,6) 

651  F OR  M AT ( 4 8X, 6A6 / 

UR  I T E (06,655)  (XLAUL ( I ),  1 = 1 ,3) ,( (YLABLS( J,K) ,J«1 ,5) »K»1*5) , j 

1 YL AblS ( 1 ,6 ) ,VL ABL S ( 7,6)  j 

655  FORMAT < /6X, 3A6,6X, 5 ( 3A6 ) ,7*6)  j 

C OUTPUT  DATA  lines 

955  URI  TE (06,660)  l I NE C T , ( Y DA T ( I ,L I NEC T ) , l =1  ,NOY VAL ) 

660  F0RMAT(/6X,16,17X,6(6X,F17.1)) 

IF (LINECT.EU.M1X)  GO  TO  5 

LINECT  = LINECT  * 1 j 

I=(LIN£CT/75)*75  1 

J = (L INEC  T*75  ) 775  j 

I f ( I .EO  . J > GO  > 0 95 1 1 

GO  TO  955  ! 

END  f 
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SUBROUTINE  PLOTTRCNUM) 

COMMON/PLOTER/  XDATC11,100),TDATC11,100>,NBRC11), 

* YLABLS CIO), XL ABL, LINES, TYPE, TI TLE,T1 TLE1  * II  HE 2, TI TLE  3, 

* XSCALE ( 1 1 ) / YSCALE ( 11 ) 

INTEGER  XSCALE, YSCALE 

DIMENSION  XC1002),XPLTC102),YPLTC102),YC1100) 

EUUIVALENCE  C X C 1 > , X D A T C 1 , 1 ) ) 

DIMENSION  YPOSC4) 


9 

CHARACTER  YLAULS*36,XLABL*36, TITLE*  36, T I TLE 1 • 

36, 1 1 TLE2*36, 

1 0 

* T1TLE3-36 

1 1 

INTEGER  type 

1 2 

DATA  dLANK/'  '/ 

,YPOS/-30.U, 10. 0,10. 0,10.0/, XPO S/0. 0/ 

1 3 

DATA  XLEN/5.U/* 

YLEN/S.O/ 

1 A 

c 

IF  TYPE  = 1 

line  graph 

1 5 

c 

2 

histogram 

16 

c 

IF  TYPE  = 1 

1 7 

c 

X DA  T ( N/M) 

contains  x-coordinate  data 

POINTS, N LINES 

18 

c 

YDA  T ( N,M) 

CONTAINS  Y-COORDINATE  ,M  DATA 

POINTS, N LINES 

1 9 

c 

NO  R ( N ) 

NUMBER  OF  DATA  POINTS  FOR  EACH  LINE 

20 

c 

YL A6LSCN) 

Y-AXIS  LABELS  FOR  EACH  LINE 

81 

c 

XL  AbL 

X-AXIS  LABEL 

22 

c 

TITLE 

TITLE  OF  PLOT 

23 

c 

XL  EN 

length  of  x-axis 

24 

c 

ylen 

length  of  y-axis 

25 

c 

LINES 

number  of  LINES  10  be  plotted 

26 

c 

27 

c 

IF  TYPE  = 2 

28 

c 

YDAT(1,100>  CONTAINS  VALUE  OF  EACH  BAR  IN  HISTOGRAM 

29 

c 

NOR ( 1 ) 

contains  number  of  oars  to  be 

PLOTTED 

30 

c 

XL  EN 

length  of  X-AXIS 

31 

c 

YLEN 

LENGTH  OF  Y-AXIS 

32 

c 

YL  Attl.SU  ) 

Y-AXiS  LABtL 

33 

c 

TI  TLE 

TITLE  OF  PLOT 

34 

c 

35 

c 

36 

c 

***  NOTE  *** 

37 

c 

38 

c 

XOAT  AND  Y D A I ARRAYS  MUST  BE  INITIALIZED 

TO  ZERO 

39 

c 

40 

c 

BEFORE  DAIA  IS  PLACED  IN  THE  ARRAYS  FOR  EACH  PLOT 

4 1 

IFCNUM  .Ell.  0) 

GO  TO  1000 

42 

DO  1 I=1,NBRC1) 

43 

DO  1 J — 1 , 6 

4 4 

1 XDAT(J,I ) = I 

45 

IF (TYPE  .EG.  2) 

GO  TO  100 

4 6 

c * 

*»  SET  UP  AND  WRITE 

LINE  GRAPH  To  PLOTTER  TAPE 

4 7 

DO  10  1=1,100 

48 

DO  10  J=1,1 1 

4 9 

10  YUHI-1X11)  = 

YDA  T CJ  , 1 > 

50 

X ( 1 001 ) = X SCALE ( 1 ) 

5 1 

X ( 1002)  = (XSCALE(II)  - XSCALE(1))/5 

52 

XX  = (XLEN-3.5) *0. 5 

53 

CALL  NEwAXT  0.0, 

0.0, XLEN, U.O,xC 1001 >,XC 1002)) 

54 

CALL  SYMBOLCXX, 

-0. 4 75,0. 10, XLABL, 0.0,36) 

55 

CALL  SYMBOLCXX, 

YLE N* 0.50,0. 10, T 1 TLE 1 ,0.0,36) 

56 

CALL  SYMBOLCXX, 

YLENAU. 35,0. 10, T I TLE  2,0.0,36 ) 

95 


5 7 

call  s ynuul ( xx, ylen«o.?o»o. io» i i ile  3,0.0*36) 

5 o 

Y ( 1 001 > = Y 5 t AL  E ( 1 ) 

59 

Y ( 10  07)  = l YSCAL E ( 1 1 )" YSCALE < 1 ) ) /5 

60 

CALL  NLwAX(U.0,U.O,YLEN,V0.,Y(10O1),Y(1 007 ) > 

61 

XX  = -0.475 

67 

YY  * CYLEN- 5-5)*0.5 

6 3 

DO  3 1=1, LINES 

64 

J = I 

65 

CALI  SYMdOl  ( XX , Y Y ,0- 1 0, YL ABLS C I 1 ,90. ,36) 

66 

CALL  SYMBOL  ( X X , Y Y ♦ 3 . 7 , 0 . 1 , J , 90 . 0 . - 1 1 

6 7 

XX  = XX-0.15 

6 6 

3 

CONT INUE 

6 9 

DO  4 1=1 .LINES 

70 

DO  5 J=1.NBR(I> 

71 

XPL  T(J)  = XDAT(I.J) 

71 

YPL  T ( J > = YOAT(I.J) 

7 j 

5 

CONT INUE 

74 

XPL  I (NbR < I 1 ♦ 1 1 = X ( 1001 1 

75 

XPL I CNBR ( l )*7>  = X ( 1 007 ) 

76 

YPL  I ( NBR ( I 1 ♦ 1 1 = Y < 10019 

7 7 

YPL  I (NBR ( 1 ) *7 ) = Y ( 1007) 

78 

K=  I 

7 ) 

CALL  L INE (XPL 1 , YPL  T , N B R ( 1 ) , 1,1 ,K) 

8 0 

u 

CON  I l NUE 

81 

7 

1 = MOO (NOP ,4) 

87 

XPOS  = 0.0 

8 3 

IF  ( I .EU.O)  XPOS  = 10. 0 

84 

CALL  PLOT (XPOS.YPOSC 1*1 ).-3) 

85 

return 

86 

C * * * 

SF1  OP  AND  WRITE  HISTOGRAM  TO  PLOTTER  TAPE 

8 7 

1 00 

CONI INUE 

8 8 

DO  11  1=1,1 100 

89 

1 1 

V < I >=0.0 

90 

T9 

C 

ru 

II 

9 1 

Y(J)  = YDAI(I.J) 

9 7 

Y ( 1 0 1 ) = YSCALE  ( 1 ) 

9 J 

Y ( 1 U7 ) = ( YSCAL E < 1 1 ) -YS CALE C 1 ) ) 7 5 

94 

CALL  NEWAK(O.U,0.0,YIEN,90.,Y<101),Y(107>> 

95 

xa  = (XLEN  -3.5)  *0.5 

96 

CALL  SYMBOL (XX, -0. 475, U.10»XLABL»0. 0.36) 

9 7 

call  SYMBOL ( ax,ylEn*U. 50,0. 10, T 1 TLe 1 ,0.0,36) 

78 

CALL  SYMdOLCX*, YLLN*  (1.35,0. 10, TITLE7*0. 0,36) 

99 

CALL  SYMBOL (XX, YLEN*0. 70,0. 10, TIILEi.O. 0,36) 

100 

x x = o . 

101 

Y Y = U. 

107 

WIDTH  = XLLN/NBR ( 1 ) 

10  $ 

00  6 I = I .NOR { 1 ) 

104 

HOT  =(  Y ( I ) - 1(101))  / Y ( 107) 

105 

CALL  dA»lXX.YY,0.,HOl,wlO)H,0.»1,0> 

106 

XXX  = XX  ♦ 0.3*  WID1H 

10  7 

A = I 

103 

CALL  NUMBER* XXX, -0.1 ,0.07,A,0.,-1 ) 

109 

XX  s XX  * WIDTH 

110 

6 

CONI  INUE 

1 1 1 

YY  = (YLEN  -3.5)  *0,5 

1 1 7 

CALL  SYMBOL (-0.475, YY,U. 10, YLAULSC1), 90.0,36) 

96 


97 


SUdROu  T l NE  NERAX(XPAGE»YPAGE»AXLEN, ANGLE, F1RSIV,0EL1AV) 


2 

ANGL  WANGLE 

3 

I F < ANGL .£a. VO. ) ANGL=1. 57080 

4 

i s = f irsiv 

5 

1DEL  = »EL  TAV 

6 

X P I = I s 

7 

X 2 = X P AG  E * a xl  e N * C 0 S L A NGL ) 

6 

Y2=YPAGE*AXIEN‘SINCANGL) 

9 

call  PLOT (XPAGE.YPAgE,3) 

11) 

call  PLOT(X2,y2,2) 

1 1 

N=AXLEN 

1 2 

DEL  x = . 05  * SI N (ANGL ) 

1 J 

OELY=.OS*COS<ANGL> 

1 4 

X 2= X P A G E ; Y2=YPAGE 

1 5 

CALL  PL0T(X2,Y2,3) 

1 6 

00  10  1 =1 ,H* 1 

1 7 

CALL  PLO? (X2-DELX, Y2-DELY.2) 

1 8 

MESTIZO 

1 9 

1IEST2=10 

7 0 

DO  20  M=l,9 

7 1 

X N=  M 

22 

If  C I P T .GE.I TEST1 .AND.IPT .LT.I1EST2)  GO 

2 3 

1TEST1=I IEST2 

24 

IT  E ST  2= 1 T ES  T 2* 1 0 

2 x 

Xfl  = 0 

26 

20 

CON  r 1 NOE 

27 

I F ( XN.NE .0. ) GO  TO  30 

28 

UK  IT  6 < 06 , 1 2 ) 

29 

12 

FORMA T (' SCAL E VALUES  TOO  LARGE  TO  PRINT 

30 

CALL  PLOT <0.,0.,999) 

31 

CALL  TDUMP<25> 

32 

STOP 

33 

30 

XN=XN/2. 

34 

Xl=x2-.18‘SIN(ANGL)-XN*.1*C0S<ANGL) 

3 5 

Y1=y2-.18»C0S(ANGL)-XN*.1*S1N(ANGL> 

36 

FPN= ] s ♦ < 1-1 >*10EL 

57 

CALL  NUM0EH(X1,Y1,.1,FPN,ANGLE*-1> 

38 

IFCI.Ea.NAl)  GO  TO  if) 

3 V 

IPTsIPT+IDEL 

40 

X 2=  X 2 ♦ 1 . ‘COS (ANGL ) 

4 1 

Y 2=  Y 2 ♦ 1 .‘S1NC  ANGL  > 

4 2 

CALL  PLO T ( X2, Y2, S> 

4 3 

10 

CONT INUE 

4 4 

Return 

45 

END 

98 


r 


i 

i 

j 


i 

z 

j 

4 

3 

6 

7 

d 

9 

10 
1 1 
1 2 
1 3 
1 4 
1 5 
1 6 
i r 

1 o 
t 9 

2n 

2 1 
22 
2 3 
2 4 
£ 5 
26 

2 7 
2d 

29 
JO 
51 

3 2 
3 J 
34 
33 

30 
37 
3d 

3 7 
40 

4 1 

42 

43 

44 
4 5 
4 0 
4 7 
4 d 
4 9 
30 

51 

52 

53 

54 

55 

56 


SUUROUTINE  ERKMSGC IEKR,*,*) 

CHARACTER  I NUU  F F • 6 ( 1 3 ) 

1F(1ERR.gE.1.AND.IERR.LE.16>  60  10  10 
wk  I I t ( 06/ 1000) 

1000  FORMAT ( 1 X ,' WARN lNG-'ERRMSb  ARGUMENT  IS  001  OF  RANGE-CHECK  ', 

» ' k xprOC  . ' ) 

kb  I ORN 

10  00  TO  (11, 12, 15, 14, 13,16, 17/18/19, 20/21/22, 23,24, 25), IbRR 

11  WRIT  b 106, 1001 ) 

1001  F OR  MA  T ( 1 X , 1 w ARN  1 Nlj--  I b b b bAb  COMMAND  ON  COMMANDS  FILE') 

RET  ORN 

12  w K l Ib(06,100?) 

1002  FORMAT ( 1 X , 1 I RRb COVE RAULE  I/O  ERROR  ON  COMMANDS  FILE.  PROORAM 

1 'TERMINATED.') 

RE  TORN  1 

13  WRl TE(06,1005) 

1003  FORMAT ( 1 X,' NUMBER  OF  DICTION ART  ITEMS  EXCEEDS  SIoRAbb  SPACE.', 

2 'PROGRAM  TERMINATED.') 

RETORN  1 

14  WRl Ib(U6,1004) 

1004  FORMAT ( 1 X, 'wARNING-*SCAEE  RANGE  TOO  SMALL.  DEFAOLT  RANGE  OSLO') 

RE  T ORN 

13  WRl IEC06, 1003) 

1005  FORMAT ( 1 X, 'WARNING  — T WO  OR  MORE  DATA  POINTS  OCCOPT  SAME  POSITION') 
RETORN 

1 6 RETORN  2 

17  WRITE (06,1007) 

1 0U  7 FORMAT ( 1 X, 'UNHULE  TO  ATTACH  SPECIFIED  PERM  FILE.  ', 

1 'PROGRAM  TERMINATED.') 

RE  I ORN  1 

18  WRl  T E ( 06 / 1 0U8 ) 

1008  FORMAT  ( IX,  'WARNING — THE  NllMOER  OF  T VAR  1 AOL  E NAMES  EXCEEOS  THE  ', 

3 'NOMtIER  OF  T TITLES.  EXTRA  T VARlAuLE  NAMES  HAVE  bEEN  IGNORED.') 
HE  I ORN 

IV  WR 1 TE (06, 1009) 

1009  FORMAT (1X, 'wORD  DAY  NOT  ENCOUNTERED  ON  FILE  20.  PROGRAM  ', 

4 'TERMINATED.') 

RETURN  1 

20  WRl TE(06, 1010) 

1010  FORMATdX,' IRRECOVERABCE  I/O  ERROR  ON  DATA  FILE  20.  PROGRAM  ', 

5 ' TERMINATED.'  ) 

RETURN  1 

21  WR 1 T E (06, 1020) 

1020  FORMAT ( 1 X,'APPROPR I ATE  VALUES  FOR  DAY  NOT  FOUND  ON  DATA  FILE  20.') 
RE  TURN  2 

22  WR I TE (06, 10  JO) 

1030  FORMAT ( 1 X,' WARN  I NG--ILL EbAL  COMMAND  ON  FILE  POINTERS  FILE  ') 

RE  TURN 

23  WR I T E ( 06, 1040) 

1040  FORMAT (' IHRE COVERAbLE  I/O  ERROR  ON  DICTIONARY.  PROGRAM  TERMINATED' 

» ) 

RETURN  1 

24  WR  I TE  (06,105(1) 

1050  FORMAT (' AUNORMAL  ENDING  FOR  ITEMS  IN  THE  01C110NARY.  PROGRAM  1ERM1 
»NA  T ED' ) 

RETURN  1 


99 


5 7 

5 6 
59 
6U 

6 1 

67 
6 J 

64 

65 

66 

6 7 

68 
69 

at) 

7 1 
71 
7 5 

74 

75 

76 

a a 


75  w R 1 1 k 106/  1060) 

1060  FORMA  ) ( ' INCOKRE  C I ENIRY  Of  D A 1 A DESCRIBING  FORMATS  ASSOCIATED  u 1 I II 
* THE  DICTIONARY.  PRO OH  AM  TERMINATED'  ) 

RETURN  1 

50  RE  AD ( 1 5/7000, END=60, t HR =65)  INUUFf 

7000  f OR  MAT < 1 A6/ 1 i A6) 

GO  TO  70 

60  WR  I f E ( 06  / 704  0) 

7040  FORMAK'NO  EHP  COMMAND  FOUND.  PROGRAM  TERMINATED') 

RETURN  1 

65  WR I IE  <06/  1 100) 

11D0  F0RMAK1X/  '••••ERROR  CONDITION  ENCOUNTERED  » H I L E READING  '/ 

6 'COMMANDS  TICE.  PRUGRAM  T E R M 1 N A I E D . ' ) 

RETURN  T 

70  IF ( INUUE F (1 ) .NE . ' ERP ' ) GO  TO  50 
DE C ODE ( I NBUF f ( 7) ,7070)  IERP 

7070  FORMATE  161 

wR I T E( 06/7050)  IERP 

7030  FORMAT (' REPORT  NUMbER'/li/'  HAS  BEEN  OMITTED') 

RETURN  7 
END 
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S fMDt  F 

MORE 

3 

Pit 

ON 

4 

Rfc  F MA 

ON 

b MOKE 

SAVE 

0,1  , 

6 

7 

8 
9 

1 0 
1 1 
1 2 
1 3 
1 4 
1 5 
) 6 
1 7 
1 8 
1 9 
20 
21 
22 

23 

24 
23 
26 

27 

28 
2Q 
50 


call  MORE  USING  I » P E . NOL  1 S T , E R RO  H 


NOLlSf  = NUMBER  OF  INIERICS  IN  I HE  LISI 


I TPE 


iohofc 

1 = 1 
I = 3 
I = 2 

R = 1 


I APE7 
I APEV 
DISK 

RANDOM  DISK  FILE 


FC  = TWO  (2)  CHARACTER  FILE  CODE 


NEXT  WORD  - RIGHT  ADJUSTED 

= FIVE  (SI  CHARACTER  REEL  NUMBER 
UR  = NUMOER  OF  LINKS  REQUESTED 
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1 


3 1 

E J E C 1 

000024 

000003 

2220  51 

()()() 

52 

L OX  7 

3,1  * 

000025 

000002 

2260  1 1 

ooo 

55 

ioxo 

2, 1 

000026 

3 4 NEXT 

NULL 

0000  26 

000000 

2 560  1 6 

ooo 

55 

L DU 

0,6 

0 00  0 2 2 

000022 

2350  00 

010 

36 

L DA 

=6 M UOOOOU 

000050 

000006 

2320  00 

ooo 

32 

Lib 

6 

0000  51 

000022 

2550  00 

ooo 

36 

AL  S 

1ft 

0000  52 

000045 

2510  20 

010 

39 

S T C A 

A,  70 

000035 

000002 

1 1 5C  03 

ooo 

40 

C MPA 

2 ,DU 

000034 

000056 

6C0C  00 

01  0 

4 1 

T l E 

D I SK 

000035 

000001 

2250  03 

ooo 

42 

L D X 5 

1 , DU 

0000  56 

000045 

4450  00 

01  0 

4 5 

SXLS 

B 

000032 

00000 1 

6350  16 

ooo 

44 

E A A 

1 ,6 

000040 

000022 

2210  00 

ooo 

45 

API 

1 ft 

000041 

00U01  4 

2560  00 

ooo 

46 

01  S 

1 2 

000042 

000022 

2250  00 

ooo 

4 2 

LRL 

1 8 

000043 

000004 

2560  31 

ooo 

48 

STU 

U , 1 * 

000044 

49  SAME 

NULL 

000044 

000  01  1 

0010  00 

ooo 

50 

MM  E 

GEMURE 

00004  5 

5 1 A 

NULL 

000045 

UOOOOU 

000000 

ooo 

52 

l L HU 

0,0 

00004 S 

5 5 

OHb 

A 

00004  5 

54  b 

NULL 

000045 

000000 

000000 

ooo 

55 

l EkO 

0,0 

000046 

000066 

2100  00 

010 

56 

THA 

ERROR 

000042 

000002 

6260  16 

ooo 

5? 

E A x6 

2,6 

000050 

222222 

6220  12 

ooo 

58 

E AX  7 

-1,7 

0000  51 

000054 

6000  no 

010 

59 

T l E 

DUNE 

000052 

000054 

6040  00 

010 

60 

T M l 

DONE 

000055 

000026 

2100  00 

010 

61 

r r a 

NEXT 

000054 

62  DOME 

NULL 

0000  54 

000004 

4500  31 

000 

6 3 

S T L 

A , 1 * 

000055 

000001210000 

010 

6 4 

RETURN 

MORE 

000056 

65  DISK 

NULL 

000 066 

000001 

2350  16 

ooo 

66 

L D A 

1 ,0 

000052 

000 045 

2510  02 

010 

62 

S TC  A 

B , 0 7 

000060 

000006 

2?20  on 

ooo 

68 

URL 

ft 

100061 

1 

2350  16 

ooo 

69 

L D A 

1 ,6 

U00062 

■ 

2510  02 

01  0 

20 

ST  l A 

B , 0 7 

non  0 63 

000044 

2100  00 

010 

7 1 

T U A 

SAME 

101  ' 6* 

000004 

450f  31 

ooo 

72 

S T Z 

A,1  * 

000065 

oonnni 2 i oooo 

01  0 

73 

R L TURN 

MORE 

0UU066 

7 4 E R H 0 H 

NULL 

1000  66 

111)  iiioi  1 1 (1(100 

01  0 

75 

return 

MORE 

T w r o R t l r j k \ i,  i 

000067  notjnooooiujfjn  ooo 

000070  UUU 65 12*2020  000 


L 1 1 E R A l S 

0000 7 2 OOOOOOOOOOOO  000 

76 


too 
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Generalized  postprocessor,  search  and  retrieval,  graphic  output  for- 
matter, CalComp  7000,  graph,  histogram,  tabular,  interactive  report 
request . 
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This  Technical  Memorandum  (TM)  describes  the  newly  developed  REMote 
Terminal  Executive  (REMTEX)  Postprocessor  software  system.  User 
interaction  and  input  requirements  are  described  and  output  formats 
are  presented.  Basic  program  and  file  maintenance  instructions  are 
included. 
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